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Guida all'Input dei programmi sullo ZX Spectrum 


Le "parole" comprese tra parentesi graffe indicano < caratteri grafia pre- 
definiti (G). il tasto (numero seguente la G). la necessito di premere il tasto 
insieme a CAPS SHIFT (eventuale $ precedente la G) e il numero di ripeti 
noni del tasto richieste (eventuale numero all'inizio della parola") I ca¬ 
ratteri grafici definiti dal programma sono invece indicati da lettere moiu 
scole (corrispondenti al tosto da usare) sotto!':* :tr 


Quando leggete 


Premete 


Vedrete 


{Gl} 
(G2) 
(G3) 
(G4 } 
{G5} 
(G6} 
{G7} 
{G8} 

{SG 1 } 
{SG2} 
{SG 3} 
(SG4 } 
{SG5} 
{SG6} 
(SG7) 
{SG8} 


□3 


□3 

Ol 

I» rtj 


di 


St non siete 

r io modo 
entrateci 
schiacciando 
contempora¬ 
neamente 
caps SHirr 
c 9 



HrH 


f 

\éitn 


1 min I 


i 

tiurf 


□3 

EH 

b 

03 

EU 
!» ftJ 

EU 

l a 1 1 



■ 

I 

S 

□ 




r 

i 



Se do.ete 
uscire del 
modo C. 
KKiKCIH 9 


Quando leggete 


Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

0 



Simbolo grafico 
definito nel 
programma in uso. 


Se do»ete 
uscire del 
modo G. 

uMtdH 9 


Guida per l’input dei programmi versioni VIC IO e €04 


Notate che i listati contengono '‘parole" rac¬ 
chiuse tra parentesi graffe { |. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente di tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
piu agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

{HOME} 
{SU} 
{GIU*} 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK} 
{WHT} 
{RED} 


CIR/HOME 


E 


CIR/HOME 


Si 


_ 

lì CRSR U 

1 □ 


SHIFT 


C=CRSR=3l 


■■■■■ 


e=CRSR =>} 


3 H 

II 


E3 □ [3 

EO □ ■ 


□ 


e 


{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 

Kl>] 
(< 2 > 1 
(< 3> ] 
l<4>] 
[ < 5 > J 
l<6>] 


ES O 
□ □ 

□ a 

E3 □ 

0O 

HO 

□ a 



[<7> 

i 

( < 8 > 

□ 

{FI} 

□ 

{F 2} 


{F3 } 

□ 

{ F4 } 

PS 

{F5} 

© 

{ F6 } 

> 

{F7} 

E 

■1 

{F8 } 


□ a 

□ 

□ □ 

■ ■ 
■ ■ 

m 



s 

W 

■ 

rn 

kS 

fE 

II 

03 

91 

rs 

II 

BD 

■ 


CIRI 
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—Puzzle esadecimale 


— 


Al giorno d'oggi si sta diffondendo sempre più 
tra coloro che si occupano di informatica, l'a¬ 
bitudine di rappresentare i numeri in base esa- 
decimale invece che decimale. Anche il puzzle 
qui presentato è composto da cifre esadecimali. 
Per i "non addetti ai lavori" il termine es ade¬ 
cimale, formato dalla parole "sei" e "dieci , 
sta ad indicare un sistema di numerazione a 
base 16 composto dalle cifre da "0" a "9" 
e dalle lettere dó "A" a "F" che rappresen¬ 
tano i numeri decimali da IO a 15. Così per 
esempio 2C significa 2x 16+ 12 (C), ossia 44 
(decimale). 

Ed ora che sapete il principio su cui basa que¬ 
sto puzzle vi divertirete ancora di più. All'ini¬ 
zio vi verrà mostrata una scacchiera di 4 qua¬ 


11 HOME : TEXT 

12 L>TAB ó: FRINT - PUZZ 

LE ESAOECIMALE" 

1? L»TAB 24: PRINT " PREMERE U 
N TASTO PER CONTINUARE";: GET 
MS 

20 CLEAR : HOME : TEXT 
25 N = 0 

30 GR : COLOR 55 4 
40 FOR I = 0 Tù 4: HLIN 7,31 AT 
1*9: NEXT I 

50 FOR'I = 0 TO 4: VLIN 0,36 AT 
7 + < 6 * I>: NEXT I 
60 DIM H< 5,5),HS<16) 

70 FOR J = 1 TO 4: FOR I = 1 TO 
4 

80 H<I,J) = 15 
90 NEXT I : NEXT J 

100 VTAB 22: PRINT "CREAZIONE DE 
L PUZZLE IN CORSO . . . . " 

110 FOR D = 0 TO 14 
120 LET R = INT < RND <1> * 4 ♦ 
.5): LET S = INT < RND (1) * 
4 + .5) 

130 IF H(R,S) < >15 THEN 120 

140 H< R,S) = D 
170 NEXT D 
172 S = 0 

174 FOR J = 1 TO 4: FOR I = 1 TO 
4 

176 HS<(J - 1) * 4 ♦ I> = H(I ,J> 

178 NEXT I : NEXT J 

180 FOR I = 1 TO 15: FOR J = I + 

1 TO 16 

182 IF HS<I> > HS(J) THEN S = S ♦ 
1 


drati per 4 dove, o coso, sono disposte le cifre 
esadecimoli do “0" o “E" con uno spozio vuo¬ 
to per lo “F". Utilizzondo lo spozio vuoto do¬ 
vrete spostare le cifre ol fine di disporle in or¬ 
dine crescente, losciondo lo spazio vuoto in bos¬ 
so o destro. A questo punto comparirà lo "F" 
nel suo giusto posto ed il computer vi renderà 
noto il numero di mosse di cui avete avuto bi¬ 
sogno per risolvere il puzzle. 

Attenzione: durante il gioco se vi troverete in 
situazioni disperate, potrete a scelta: 


a) sferrare un calcio al cane 

b) sferrare un calcio al computer 

c) premere istericamente RESET 

d) premere con calma ESC 


184 NEXT J: NEXT I 

186 IF HS< 2) = 15 OR HS<4> = 15 OR 
HS<5) = 15 OR HS< 7) = 15 OR 
HS(10) = 15 OR HS(12> = 15 OR 
HS(13) = 15 OR HS<15) = 15 THEN 
S = S + 1 

188 HS(0 > = INT <S / 2>: IF HS(0 
) * 2 < > S THEN GOTO 20 

190 HOME 

200 FOR S = 1 TO 4: FOR R = 1 TO 
4 :D = H(R,S): IF D = 16 THEN 
206 

202 X = 8 + < < R - 1> * 6>:Y = 1 ♦ 

<<S - 1> * 9) 

204 IF D < 15 THEN GOSUB 699: ON 
D + 1 GOSUB 700,701,702,703, 
704,705,706,707,708,709,710, 

711,712,713,714,715 
206 NEXT R: NEXT S 
210 LHTAB 21: PRINT "DIGITARE CIF 
RA ESADECIMALE TRA 0 ED E :" 

• 

212 GET DS:D = ASC CDS): IF D = 

27 THEN GOTO 500 

215 IF D > 64 AND D < 70 THEN D = 

D - 48 - 7: GOTO 250 
220 IF D > 47 AND D < 58 THEN D = 

D - 48: GOTO 250 
230 PRINT CHRS <7>: GOTO 210 
250 PRINT : FOR S = 1 TO 4: FOR 
R = 1 TO 4 

260 IF H< R,S) = D THEN GOTO 310 

270 NEXT R: NEXT S 

310 IF H(R - 1 ,S> = 15 THEN X = 

R - 1 :Y = S: GOTO 360 
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320 IF l-K R + 1 ,S> = 15 THEN X = 

R ♦ 1:Y = Si GOTO 360 
325 IF H(R,S - 1> = 15 THEN X = 

R : Y = S - 1 : GOT0 360 
.330 IF H(R,S «■ 1> = 15 THEN X = 

R:Y = S 4 1: GOTO 360 
340 HOME : UTAB 21: PRINT " MOSS 
A IRREGOLARE - RI DI CITARE : 

" ; CHR* (7 >; : GOTO 212 
360 H<X ,Y> = D : H< R,S) = 15 
370 X = 8 4 <<X - 1> * 6)8Y = 1 + 
<<Y - 1) * ?>: GOSUB 699: ON 
D + l GOSUB 700,701,702,703, 
704,705,706,707,708,709,710, 
711,712,713,714,715 


380 

X = 8 4 < <R - i ) 

* 6) : 

Y = 

1 4 


< <S - 1 > * 9) : 

GOSUB 

698 


390 

z 

II 

z 

+ 




410 

FOR J = 1 TO 4: 
4 

FOR I 

= 1 

TO 

420 

IF H(I,J) < > 

<<4 * 

( J - 

1 ) 


) + I - 1 ) THEN 

GOTO 

210 


430 

NEXT I : NEXT J 





440 X = 26:Y = 28: GOSUB 699: GOSUB 
715 

450 UTAB 21: PRINT CHR* <7>;" 

VITTORIA! 

ii 

452 PRINT " IN 

";N; M MOSSE “ 

455 PRINT " ALTRA PARTIT 

A < S/N)? GET M* : IF M$ = 

"S" THEN GOTO 20 
460 IF M$ < > "N“ THEN UTAB 24 

: HTAB 1 : GOTO 455 
500 TEXT : HOME : UTAB 14: PRINT 

" GAME OVER": UTAB 

24: END 

698 COLOR= 0 : FOR J = 0 ♦ Y TO 7 

+ Y: HLIN 0 ♦ X,4 4 X AT J: 

NEXT J: RETURN 

699 COLOR= 9: FOR J = 0 ♦ Y TO 7 

+ Y: HLIN 0 4 X,4 ♦ X AT J: 

NEXT J: RETURN 

700 COLOR= 0: PLOT 2 + X,1 + Y: VLIN 
2 + Y,5 + Y AT 1 + X: ULIN 2 

♦ Y,5 + Y AT 3 ♦ X : PLOT 2 4 
X,6 + Y: RETURN 

701 COLOR= 0: PLOT 1 + X,2 ♦ Y: ULIN 
1 + Y,5 + Y AT 2 + X: HLIN 1 

♦ X , 3 4 X AT 6 + Y: RETURN 

702 COLOR= 0: PLOT 2 + X,1 + Y: PLOT 
1 + X,2 + Y: PLOT 3 ♦ X,2 ♦ 

Y: PLOT 3 4 X,3 + Y: PLOT 2 ♦ 

X, 4 ♦ Y: PLOT 1 4- X,5 4 Y: HLIN 
M X,3 + X AT 6 + Y: RETURN 

703 COLOR= 0: HLIN 1 ♦ X,3 ♦ X AT 

1 ♦ Y: PLOT 3 ♦ X,2 ♦ Yi PLOT 

2 ♦ X,3 ♦ Y: ULIN 4 ♦ Y,6 ♦ 

Y AT X ♦ 3: HLIN 1 +X,2+X 

AT 6 ♦ Y: RETURN 

704 COLOR= 0: ULIN 1 ♦ Y,3 ♦ Y AT 
1 + X: PLOT 2 ♦ X,3 ♦ Y: ULIN 
1 + Y,6 + Y AT 3 ♦ X : RETURN 

705 COLOR= 0: HLIN 1 + X,3 + X AT 
1 +' Y: ULIN 2 + Y,3 + Y AT 1 


4- X: PLOT 2 4- X, 3 + Y: ULIN 

4 + Y, 5 4- Y AT 3 4- X: HLIN 1 
+ X,2 4 X AT 6 4 Y: RETURN 

706 COLOR= 0: PLOT 2 4 X,1 4- Y: ULIN 
1 + Y,6 + Y AT 1 4 X: HLIN 2 

+ X,3 4 x AT 6 4 Y: ULIN 3 4 
Y,5 4- Y AT 3 + X: PLOT 2 4 X 
,3 4 Y: RETURN 

707 COLOR= 0: HLIN 1 4 X,3 4 X AT 
1 4 Y: ULIN 2 4 Y,3 4- Y AT 3 

+ X: PLOT 2 4- X, 4 4 Y: ULIN 

5 4 Y,6 4 Y AT 1 + X : RETURN 

708 COLOR= 0: PLOT 2 4 X,1 4 Y: PLOT 
1 4 x,2 + Y: PLOT 3 + X,2 + 

Y: PLOT 2 4 Y: ULIN 4 4 

Y,5 4 Y AT ì 4 X: ULIN 4 4 Y 
,5 4 Y AT 3 4 X: PLOT 2 4 X, 

6 4 Y: RETURN 

709 CGLOR= 0: ULIN 1 4 Y,3 4 Y AT 

1 + X: ULIN 1 4 Y,6 4 Y AT 3 
4 X: PLOT 2 4 X,1 4 Y: PLOT 

2 4 X,3 4 Y: PLOT 2 4 X,6 4 
Y: RETURN 

710 COLOR= 0: PLOT 2 4 X,1 4 Y: ULIN 

2 4 Y,6 4 Y AT 1 4 X: ULIN 2 

♦ Y,6 4 Y AT 3 4 X : PLOT 2 4 
’ X,4 4 Y: RETURN 

711 CQLOR= 0: ULIN 1 4 Y,6 4 Y AT 
1 + X: PLOT 2 4 X,1 4 Y: PLOT 

3 4 X,2 4 Y: PLOT 2 4 X,3 4 
Y: ULIN 4 4 Y,5 4 Y AT 3 4 X 
: PLOT 2 4 x,6 4 Y: RETURN 

712 COLOR= 0: HLIN 1 4 x,3 4 X AT 
1 + Y: ULIN 2 4 Y,54 Y AT 1 

+ X: HLIN 1 4 X,3 + X AT 6 4 
Y: RETURN 

713 COLOR= 0: ULIN 1 4 y,6 4 Y AT 

1 4 X: PLOT 2 + X,1 4 Y: ULIN 

2 4 Y,5 4 Y AT 3 4 x: PLOT 2 
+ X,6 4 Y: RETURN 

714 COLGR= 0: HLIN 1 4 X,3 4 X AT 
1 4 Y: ULIN 2 4 Y,5 4 Y AT 1 

+ X : HLIN 1 + X,3 4 X AT 6 4 
Y: PLOT 2 4 X,3 4 Y: RETURN 

715 COLOR= 0: HLIN 1 4 X,3 4 X AT 
1 + Y: ULIN 2 4 Y,6 4 Y AT 1 

4 X: PLOT 2 4 X,3 4 Y: RETURN 
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Cariche elettriche 



Scopo del gioco è stabilire la giusta direzione 
affinché un elettrone che si trova nell'angolo 
in alto a sinistra dello schermo (il campo ma¬ 
gnetico) si diriga nell'angolo opposto, in basso 
a destra. 

Determinerete la direzione fornendo le coordi¬ 
nate x,y corrispondenti al punto desiderato. At¬ 
tenzione, però, perché la traiettoria dell'elet¬ 
trone viene modificata dalla carica di ioni po¬ 
sitivi e negativi che compaiono sullo schermo 
ogni volta in modo casuale. Dovete quindi te¬ 
ner conto dell'influenza esercitata da questi ioni 
sull'elettrone per stabilirne la corretta direzione. 
Naturalmente diverrete sempre più abili via via 
che aumenterà la vostra esperienza di gioco. 
Il punteggio che ogni volta vi verrà dato sarà 
tanto maggiore quanto più l'elettrone si sarà 


100 GOSUB 6010: DIM SG(5,2): GOTO 
7010 

1000 REM * ROUTINE DI MOVIMENTO 
CARICA * 

1010 HP = SOR <XO * XO + YO * YO 
): IF HP = 0 THEN HP = 1 

1020 XO = XO * SO / HP:YO = YO * 

SO / HP 

1030 FOR I = OE TO FV:IM = PEEK 
< SS): IM = PEEK (SS): NEXT 

1040 DRAW TR AT XP,YP 

1050 XN = XO:YN = YO 

1060 FOR I = ZE TO SL:X = SG(I,Z 
E) - XP :Y = SG<I ,OE > - YP:HP 
= X * X ♦ Y * Y:XN = XN - C 
G * SG( I ,TUI) * X / HP : YN = Y 
N - CG * SG<I,TW) * Y / HP: NEXT 

1070 XDRAW TR AT XP,YP:XP = XP ♦ 

XN:YP = YP + YN 

1080 IF XP < ZE OR XP > TN OR YP 
< ZE OR YP > 0? THEN GOTO 
3010 

1090 XDRAW TR AT XP,YP: GOTO 106 
0 

2000 REM * DISEGNA GLI IONI * 

2010 HGR : SCALE= OE: ROT= ZE 

2011 HCOLOR= 3 

2020 HPLOT ZE,ZE TO 279,ZE TO 27 
9,159 TO ZE,159 TO ZE,ZE 

2030 FOR I = OE TO 13: HPLOT 20 * 
1,157 TO 20 * 1,159: NEXT 

2040 FOR I = OE TO 7: HPLOT 277, 

20 * I TO 279,20 * I: NEXT 


avvicinato all'angolo in basso a destra. Se l'e¬ 
lettrone termina il suo movimento sul bordo del 
campo magnetico il punteggio è dato dal pro¬ 
dotto delle coordinate x e y di quel punto. Ri¬ 
cordate che le coordinate del punto a sinistra 
jn alto sono 0,0 mentre quelle per l'angolo a 
destra in basso sono 14.8. 

Si può giocare da soli, ma è più divertente la 
competizione tra più avversari (da 2 a 4). In 
ogni partita ciascun concorrente, a turno, do¬ 
vrà cimentarsi su 5 campi magnetici diversi e 
affinché un giocatore non sia avvantaggiato ri¬ 
spetto agli altri il computer varia ogni volta i 
turni di gioco dei partecipanti. Vince chi, al ter¬ 
mine della partita, ha totalizzato il punteggio 
più alto. 


2050 

HC = FV:SP = TW 



2060 

PO = - OE:PI = OE 



2070 

FOR I = OE TO SL 



2080 

SG<I,ZE) = 2 * INT 
< 1 > ) + 15 

(125 * 

RND 

2090 

SG<I,OE) = 2 * INT 

(65 * RND 


( 1 ) ) ♦ 14 



2100 

SG<I,TW) = - PI 



2110 

PI = PI * PO 



2120 

HC = HC - PI :SP = SP 

♦ PI 


2130 

2140 

HCOLOR= HC 

DRAW SP AT SG<I,ZE) 

) 

NEXT 

,SG(I,OE 


2150 



2160 

HCOLOR= 7 



2170 

RETURN 



3000 

REM * SEQUENZA DI 

M. 

IMPATTO 


3010 

IF XP > 279 THEN XP 
48 

= 279: 

ROT= 

3020 

IF YP > 159 THEN YP 

0 

= 159: 

ROT = 

3030 

IF XP < 0 THEN XP = 
16 

0: ROT= 


3040 

IF YP < 0 THEN YP = 
32 

0 : ROT= 


3050 

DRAW FR AT XP,YP: FOR I = 0 



E TO 50:IM = PEEK (SS) - PEEK 


(SS): NEXT 



4000 

REM * TENUTA DEL PUNTEGGIO 

M. 


4010 

FOR I = OE TO HM 



4020 

IF I = MC THEN S(I) = 
INT (XP * YP) 

' S( I ) ♦ 
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4030 
40 40 

4050 

4060 

4070 

4080 

4090 


4100 


41 10 
4120 
4130 
4140 
5000 
5010 
5020 


5030 

5040 

5050 

5060 

5070 

5080 


5090 


5100 

51 10 
5120 


5130 

5140 
5150 
6000 
6010 
601 1 

6013 

6014 


6016 


6018 

6020 


6030 

6040 

6050 

6060 

6070 

6080 

6090 


NEXT 

IF INT <XP * YP) = 0 THEN 
PRINT : GOTO 4070 
GOSUB 3010 
HOME 

C = C ♦ 1 

IF C = FO * HM GOTO 5010 
IF M = HM THEN IF H = HM THEN 
H = OE:M = 0E:MC = OE: GOSUB 
2010s GOTO 7150 
IF H = HM THEN M = M ♦ OE:M 
C = MsH = OEi GOSUB 2010s GOTO 
7150 

MC = MC + 1 
H = H ♦ 1 

IF MC > HM THEN MC = 1 
GOTO 7150 

REM * SEQUENZA DI FINE * 

POKE 34,0 

HTAB 1: VTAB 24: GOSUB 9060 
: PRINT "GIOCHI ANCORA? (S/N 


>“ J 

GET Y*: IF Y$ 
GOTO 5150 
H = 1:M = 1:MC 
FOR I = OE TO 
NEXT 

VTAB 21 : HTAB 
80) 

HOME 

VTAB 24: HTAB 

550 LIVELLO DI 
" ; : GET Y* 

IF Y$ < > "S" 

VTAB 24: HTAB 
ELLO DI GIOCO ( 
IF SL < OE OR 
5090 
HOME 

VTAB 24: HTAB 

551 GIOCATORI? 

Y* 


< > "S" THEN 

= 1:C = 0 
HM:S <I) = ZE: 

1 : PRINT SPC< 


1: PRINT "STE 
GIOCO? (S/N) 

THEN HOME : 
1: INPUT "LIV 
1-5) ? “;SL 
SL > FV GOTO 


1: PRINT "STE 
(S/N) GET 


IF Y$ = "S" THEN C = 0: GOSUB 
2010 : GOTO 7140 < 

GOTO 7040 

HOME : TEXT : END 

REM * INIZIO * 

POKE 232,0: POKE 233,96 
FOR I = 0 TO 18: READ DUMMY 
: NEXT 
AD = 24575 

FOR I = 1 TO 62: READ BY: POKE 
AD ♦ I,BY:CK = CK ♦ BY: NEXT 
I 

IF CK < > 2864 THEN PRINT 

"ERRORE LINEE DATA 10000-100 
80": END 
RESTORE 

ZE = 0 :OE = 1 :TU = 2:C = 0:T 
R = 3 :FR = 4 : FV = 5:SO = 10: 

CG = 25 : SS = - 16336:TN = 2 

79:09 = 159 
TEXT 


FLASH 

PRINT "a*******#****#*##**# 


****#*****###**#***•• 

FOR I = OE TO 21: PRINT 
;: HTAB 39: PRINT NEXT 

PRINT "***************#**** 
*******************" 


NORMAL 
GOSUB 9010 


6100 VTAB 3: HTAB 14: PRINT N - 


- •• . 

» 

6110 FOR I = OE TO TR: VTAB TR + 



I: HTAB 14: PRINT 

« i 


!" ; : NEXT 


6120 

VTAB 7: HTAB 14: 

PRINT "- 

6130 

VTAB 5: HTAB 17: 

PRINT "CAR 


ICA!"; 


61 40 

VTAB 10: HTAB 12: 
FINO A QUATTRO"; 

PRINT " 

6150 

VTAB 12: HTAB 14: 
GIOCATORI"; 

PRINT " 

6180 

FOR I = 1 TO 1500 

: NEXT I 

6190 

RETURN 



7000 REM * INFORMAZIONI INI ZIAL 
I * 

7010 HOME : HGR 

7020 VTAB 22: INPUT "LIVELLO DI 
GIOCO (1-5) >";SL 
7030 IF SL < 1 OR SL > 5 THEN 70 
10 

7040 GOSUB 2010 

7050 HOME : VTAB 22: INPUT "QUAN 
TI GIOCATORI? ";HM 
7060 H = 1:M = 1:MC = 1 
7070 IF HM < 1 OR HM > 4 THEN 70 
50 

7080 FOR I = 1 TO HM 
7090 HOME : VTAB 22: INPUT "COME 
TI CHIAMI? ";NAME*(I> 

7100 PRINT "CIAO ";NAME*(I) 

7110 FOR J = 1 TO 500: NEXT J 
7120 HOME 
7130 NEXT I 

7140 VTAB 21: HTAB 1: PRINT NAME 
*(1): IF HM > 1 THEN VTAB 2 
1: HTAB 20: PRINT NAME* (2) : IF 
HM > 2 THEN VTAB 22: HTAB 1 
: PRINT NAME*(3): IF HM > 3 THEN 
VTAB 22: HTAB 20: PRINT N«M 
E* ( 4 ) 


7150 

XP = 7 :YP 

= 7: POKE 

34,23 

7160 

VTAB 24: 

HTAB 1: PRINT "TOC 


CA A “;NAME*(MC);". 

DIREZION 


E ( X , Y ) " 

• 

1 


7170 

INPUT XO 

i,YO: GOTO 

1010 

8000 

REM * AGGIORNA IL 

PUNTEGGI 


0 * 



8010 

IF MC = 

1 THEN HT 

= 12 :VT = 


21 



8020 

IF MC = 

2 THEN HT 

= 32 :VT = 


21 



8030 

IF MC = 

3 THEN HT 

= 12 :VT = 


22 



8040 

IF MC = 

4 THEN HT 

= 32 : VT = 


22 

8050 AM = S(MC> 

8060 D7.(l> = AM / 100000:AM = AM - 
D7< 1 ) * 100000 

8070 D7(2) = AM / 10000:AM = AM - 
0 / ( 2 > * 10000 

8080 D7<3> = AM / 1000:AM = AM - 
D7.(3> * 1000 

8090 D7(4) = AM / 100:AM = AM - D 
7(4) * 100 

8100 D7( 5) = AM / 10:AM = AM - 0/ 
(5) * 10 
8110 D/( 6) = AM 

8120 FOR J = 6 TO OE STEP - 1 
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8130 

FOR 1 = ZE TO D/.CJ) 


8140 

HTAB HT ♦ J: UTAB UT: 
i ; 

IM = PEEK <SS> - PEEK 

PRINT 

8150 

(SS) 


+ PEEK (SS) - PEEK (SS) ♦ 
PEEK (SS) - PEEK (SS) 

8160 

NEXT I 


8170 

NEXT J 


8180 

RETURN 


9000 

REM * FANFARA * 


9010 

FOR I = 0 TO 18 


9020 

READ X 


9030 

POKE 768 + I,X 


9040 

NEXT 


9050 

DATA 173,48,192,136,208,4, 


198,1,240,8,202,208,246 
0,76,0,3,96 

,166, 

9060 

S = 768 


9070 

POKE 1,50 


9080 

POKE 0,91 


9090 

CALL S 


9100 

FOR I = 1 TO 3: NEXT I 


9110 

POKE 1,33 


9120 

POKE 0,82 


9130 

CALL S 


9140 

FOR I = 1 TO 3: NEXT I 


9150 

POKE 1,33 



9160 

POKE 0,75 

9170 

CALL S 

9180 

FOR I = 1 TO 3: NEXT I 

9190 

POKE 1,130 

9200 

POKE 0,66 

9210 

CALL S 

9220 

FOR I = 1 TO 30: NEXT I 

9230 

POKE 1,50 

9240 

POKE 0,75 

9250 

CALL S 

9260 

POKE 1,255 

9270 

POKE 0,66 

9280 

CALL S 

9290 

RETURN 

10000 

DATA 4,0,10,0,29,0,39,0,4 
2,0 

10010 

DATA 36,36,55,54,54,54,37 
,36,45,45 

10020 

DATA 60,63,63,63,63,46,45 
,5,0,63 

10030 

DATA 63,46,45,45,45,37,63 

* 

,63,0,44 

10040 

DATA 62,0,8,32,36,36,36,1 
49,146,98 

10050 

DATA 12,12,220,219,219,19 
,14,14,14,14 

10060 

DATA 6,0 


Formula di successo 


TI-99/4A 


Ce chi ha detto che la vita è un gioco, e che 
il successo in esso dipenda dal saper giocare 
d'azzardo. • 

Bene, l'autore di questo a prima vista compli¬ 
cato programma in TI-BASIC, si è sicuramente 
ispirato a questa filosofia nel progettare que¬ 
sto gioco. 

Vi troverete al termine delle scuole superiori, 
nel pieno dei vostri 18 anni, con il proposito 
di realizzarvi nella vita programmando il vo¬ 
stro futuro tra felicità, ricchezza e gloria. 

Il programma vi mostrerà ogni volta le diverse 
possibilità di scelta in base alle quali di volta 
in volta potrete pianificare il vostro futuro. 
Ad ogni turno di gioco (che corrisponderà ad 
un anno della vostra vita), vi verrà mostrato 
il vostro curriculum attuale, completo di età, 
livello di studi raggiunti, gli obiettivi da voi pre¬ 
fissi. esperienze già effettuate (ogni esperien¬ 
za può venire effettuata fino a 3 volte), e livel¬ 


10 attuale dei vostri punti-denaro, felicità e 
gloria. 

Alcune precisazioni di carattere tecnico; il pro¬ 
gramma si compone di due listati: il program¬ 
ma principale ed il programma supplementa¬ 
re dei dati. 

Logicamente questa soluzione permette di ave¬ 
re partite sempre differenti Luna dall'altra, ma 
può divenire complicata se non si seguono que¬ 
ste semplici indicazioni sul modo di operare: 

1) caricare nel TI il programma supplementare: 

2) dare il ' ’RUN" e registrare i dati che ne se¬ 
guono, su cassetta: 

3) tenere da parte la cassetta con i dati e ca¬ 
ricare in memoria il programma principale: 

4) dare il ' ’RUN" ed eseguire le operazioni se¬ 
gnalate sul video, inserendo i dati precedente- 
mente ricavati: 

Importante: 

11 computer inizia a leggere i dati senza segna- 
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lare il messaggio "READING "; perciò dopo l'i¬ 
struzione “PRESS CASSETTE PLAY..." atten¬ 
dete qualche istante finché non noterete lo 


scroti di una riga verso l'alto. A questo punto 
il computer inizierà a leggere i dati. 


programma I 


100 REM 
1 10 REM 
120 RFM 
130 REM 
1 4 0 REM 
150 REM 
160 REM 


*FORMULA-SUCCESSO* 

****************** 


PROGRAMMA 
SUPPLEMENTARE 
DEI DATI 


170 REM TI 99/4A BASIC 

180 REM 
1 90 REM 

200 CALL CLEAR 

210 PRINT "REGISTRA SU NASTRO I 
DATI PER L’INSERIMENTO NEL PRO 
- GRAMMA PRINCIPALE -FORMULA D 
I SUCCESSO.": : : : 

220 DIM B$(6,10) ,E$ (5) ,S$ (21) 

230 FOR S=1 TO 6 
240 FOR SB=1 TO 10 
250 READ B$(S,SB) 

260 NEXT SB 
270 NEXT S 
280 FOR EP=1 TO 5 
290 READ E$(EP) 

300 NEXT EP 

310 FOR SQ=1 TO 21 

320 READ S$(SQ) 

330 NEXT SQ 

340 OPEN #1 :"CSI",INTERNAL,OUTPU 

T/FIXED 192 

350 FOR S=1 TO 6 

360 PRINT #1:B$(S,l),B$(S,2),B$( 
S,3),B$(S,4),B$ (S,5) ,B$ (S,6) ,B$ ( 
S,7) ,B$(S,8),B$ (S,9) ,B$ (S,10) 

370 NEXT S 

380 PRINT #1:E$(1 ) ,E$(2) ,E$ (3) ,E 
$(4) ,E$(5) , S$(1 ),S$(2) ,S$ (3),S$( 
4) ,S$ (5) ,S$ (6) ,S$ (7) ,S$ (8) ,S$ (9) 
,S$(10) 

390 PRINT #1:S$(11),S$(12),"",S$ 
(13) , S$ ( 1 4 ) ,S$(15) , S$ ( 1 6 ) ,S$(17) 

,S$(18) ,S$(19) ,S$(20) ,S$(21 ) 

400 CLOSE #1 

410 DATA CAMERA COMUNE,GRUPPO DI 
STUDIO,CINEFORUM,CONCORSO DI BE 
LLEZZA,RISCHIO 

420 DATA INTERVISTA,SQUADRA DI B 
ASKET,ELEZ.UNIVERSITÀ',SQUADRA D 
I FOOTBALL,OFFERTA DI LAVORO 
430 DATA REPORTER,RICERCATORE,MA 
NAGER AZIENDALE,INVENTORE,REDATT 
ORE RIVISTA 


440 DATA SCRITTORE,VIAGGIO DISTU 
DIO,PAUSA RIFLESSIONE,ANALISTA,M 
ARKETING MANAGER 

450 DATA IMPIEGATO POSTALE,APRIR 
E NEGOZIO,RUFFIANARSI IL PADRONE 
,ECONOMISTA 

460 DATA PAUSA DI RIFLESSIONE,SE 
GRETARIO,FARE L'HIPPY,DISCUSSION 
E COL CAPO,LICENZIAMENTO,PUBBLIC 
ITARIO 

470 DATA FARE CONOSCENZE,ORGANIZ 
ZARE FESTE,ESPULSIONE,RI POSO,PRO 
GRAMMATORE CP/M 

480 DATA VACANZE DI LAVORO,FERIE 
,LAUREA 

490 DATA SCHIAMAZZI IN CLASSE,NU 
OVO LAVORO 

500 DATA ELEZIONI POLITICHE,EURO 
ELEZIONI,VOTAZIONI,TRIBUNA POLIT 
ICA,BUSTARELLA,"RACCOMANDAZIONI" 

510 DATA EVASORE FISCALE,CANDIDA 
TO AL SENATO,RITIRO ELEZIONI,ACC 
ORDÌ CON MAFIA 

520 DATA ALLENAMENTI,TORNEO DI C 
ALCIO,INTERVISTA TV,TORNEO A WI 
MBLEDON 

530 DATA PLAY-OFFS,TRUFFA,NON-RI 
CONOSCENTE,"VIVERE LA VITA",GRAN 
E CON LA POLIZIA,PIAZZISTA 
540 DATA MATURITÀ’,BACCELLIERATO 
,LAUREA,SPEC.DI LAUREA,SECONDA L 
AUREA 

550 DATA TASSE,AUTO NUOVA,PROCES 
SO,IN OSPEDALE,CORSO DI STUDI,IN 
FLAZIONE,AFFARE,HOBBY,INSEGNAMEN 
TO 

560 DATA CASSA-INTEGRAZIONE,POLI 
TICA,PRESTITO,,SPESE,HAWAII 
570 DATA CASINO’,SPORT,PARIGI,SC 
IENZA,BENEFICENZA,RADDOPPIO STIE 
END IO 

programma 1 

100 REM **************** 

1 1 0 REM * FORMULA * 

120 REM * DI * 

130 REM * SUCCESSO * 

140 REM ***************** 

1 50 REM PROGRAMMA 
160 REM PRINCIPALE 
170 REM TI-99 BASIC 

180 CALL CLEAR 
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190 NE=1 
200 @ = 2 

210 CALL SCREEN(15) 

220 M$="FORMULA DI SUCCESSO" 

230 GOSUB 1360 

240 OPTION BASE 1 

250 DIM S$ (21) ,B (25) ,E(3),B$ (6,1 
0),E$(5) 

260 CALL CHAR(100,"002277777F3El 
C0 8" ) 

270 CALL CHAR(10 5,"08087F3E1C362 

241 ") 

280 FOR C=112 TO 117 
290 READ A$ 

300 CALL CHAR(C,A$) 

310 NEXT C 

320 FOR C=9 TO 11 

330 READ X,Y 

340 CALL COLOR(C, X, Y) 

350 NEXT C 

360 DATA 000000101,000020000004, 
00004000100002 

370 DATA 000044000044,0044001000 
44,005400000054,7,1 ,1 6,1 ,2,1 6 
380 CALL CLEAR 

390 PRINT "INSERIMENTO DATI": : 

400 OPEN #1:"CS1",INTERNAL,INPUT 
,FIXED 192 
410 FOR S=NE TO 6 

420 INPUT #1:B$(S,NE),B$(S,@),B$ 
(S,3),B$(S,4),B$(S,5),B$(S,6),B$ 
(S,7),B$(S,8),B$(S,9),B$(S,10) 
430 NEXT S 

440 INPUT #1:E$(NE),E$(@),E$(3), 
E$ (4) ,E$(5) ,S$(NE) ,S$ (@) ,S$(3) ,S 
$(4) ,S$(5) ,S$(6) ,S$(7) ,S$(8),S$ ( 
9) ,S$ (10) 

450 INPUT #1 :S$ (1 1 ) ,S$ (1 2) ,S$ (1 3 
) ,S$ (14) ,S$ (1 5),S$(1 6),S$(17) ,S$ 
(18) ,S$(19),S$(20),S$ (21 ) 

460 CLOSE #1 
470 CALL CLEAR 

480 M$=" PUNTI DENARO($/l000) " 

490 H$=" PUNTI FELICITA' " 

500 F$=" PUNTI GLORIA " 

510 PRINT "HAI DECISO DI LANCIAR 

TI":"NELLA VITA....: : 

520 IF M>0 THEN 740 
530 GOSUB 770 

540 PRINT : :"INSERISCI LA TUA F 

ORMULA DI":"SUCCESSO.":"IL TOTAL 
E DEI PUNTI":"DEVE ESSERE UGUALE 
A 1000.": : 

550 INPUT M$:Q 
560 INPUT H$:HP 
570 INPUT F$:FP 


580 IF Q+HP+FPOl 000 THEN 540 

590 Q=Q*1000 

600 M$="$ "&STR$(Q) 

610 H$=" "&STR$(HP)&H$ 

620 F$ = " "&STR$(FP)&F$ 

630 CALL CLEAR 
640 A$="" 

650 GOSUB 780 
660 L=18 
670 N=NE 
680 H=5 
690 A=5000 
700 M=A 
710 S = 0 

720 PRINT : : : : 

730 GOTO 510 

740 PRINT "PREMI UN TASTO" 

750 GOSUB 5790 
760 GOTO 1840 
770 A$=" XXX" 

780 PRINT "PER VINCERE DEVI RAGG 
IUNGERE":"E MANTENERE:": :A$;M$: 
:A$;H$: :A$;F$ 

790 PRINT :"FINCHE'NON AVRAI RAG 

GIUNTO":"40 ANNI (ORA NE HAI 18) 

11 

800 RETURN 

810 CALL CLEAR 

820 IF G>10 THEN 840 

830 ON G GOTO 4670,4700,4760,491 

0,900,4950,880,4990,870,5140 

840 ON G-10 GOTO 860,5220,910,52 

60,5340,5410,850,5510,890,5580,1 

670 

850 S=S+NE 

860 S=S+NE 

870 S=S+NE 

880 S=S+NE 

890 S=S+NE 

900 S=S+NE 

910 RETURN 

920 CALL CLEAR 

930 CALL SCREEN(1 1 ) 

940 R=15 

950 M$="OPPORTUNITA 1 OFFERTE:" 
960 GOSUB 1370 

970 PRINT "PUOI SCEGLIERE:": : 
980 FOR X=5 TO 19 STEP @ 

990 IF X=13 THEN 1030 
1000 IF X>9 THEN 1020 
1010 PRINT " 

1 020 PRINT X ;S$(X) 

1030 NEXT X 
1040 PRINT : : 

1 050 INPUT "FAI LA TUA SCELTA*:": 
G 

1060 FOR X=5 TO 19 STEP @ 

1070 IF G=X THEN 1100 
1080 NEXT X 


10 



1090 GOTO 1050 
1 1 0 0 CALL SCREEN (15) 

1110 S=0 

1120 GOSUB 810 

1130 IF S=0 THEN 1840 

1140 GOTO 2190 

1150 X=INT(3*RND)+NE 

1160 IF E(X)=5 THEN 1190 

1 1 70 E (X) =E (X) +NE 

1180 GOTO 1200 

1190 X=0 

1 200 PRINT "ESPERIENZA=";X 
1210 RETURN 
1220 CALL CLEAR 
1 230 CALL SCREEN(12) 

1240 PRINT "* TELEGRAMMA *" 

1250 PRINT : : :"BRUTTA NOTIZIA! 

"LO STATO TI CHIAMA": : : 

1260 PRINT "2 ANNI IN MARINA.": 

: "UNIVERSITÀ' PAGATA.": : : 

1270 L = L+@ 

1280 B(@)=NE 
1290 GOSUB 1150 
1 300 CALL SCREEN(15) 

1310 GOTO 1840 
1 320 FOR D=NE TO 300 
1 330 NEXT D 
1340 RETURN 
1350 M$=S$(G) 

1360 R=12 

1370 C=INT((32-LEN(M$))/@) 

1380 FOR I=NE TO LEN(M$) 

1390 D=ASC(SEG$(M$,I,NE)) 

1400 CALL HCHAR(R,C+I,D) 

1410 NEXT I 
1420 RETURN 

1430 PRINT :"PREMI UN TASTO" 

1440 GOSUB 5790 
1450 RANDOMIZE 
1460 0=INT(6*RND)+NE 
1470 P=INT(6*RND)+NE 
1480 DD=0+P 

1490 ON D GOTO 1570,1530,1500 

1500 Y=P 

1510 C=7 

1520 GOSUB 1620 

1530 Y=0 

1540 C=5 

1550 GOSUB 1620 

1560 PRINT 

1570 IF (DD=7)+(DD=11)+(0=P)THEN 
1 600 

1580 X=0 

1590 RETURN 

1600 X=NE 

1610 RETURN 

1620 FOR 1=112 TO 117 

1630 CALL HCHAR(24,C,I) 

1640 NEXT I 


1650 CALL HCHAR(24,C,111+Y) 

1660 RETURN 
1670 M=M+A 
1680 R=10 

1690 M$="RADDOPPIO" 

1700 GOSUB 1370 
1710 M$ = "STIPENDIO !" 

1720 CALL SOUND(240,392,@) 

1730 CALL SOUND(360,523,0) 

1740 CALL SOUND(120,392,@) 

1750 CALL SOUND(360,494,@) 

1760 CALL SOUND(120,523,0) 

1770 GOSUB 1360 

1780 M=M+A 

1790 L=L+NE 

1 800 B(NE)= 0 

1810 GOSUB 1320 

1820 CALL CLEAR 

1830 RETURN 

1840 GOSUB 1320 

1850 CALL CLEAR 

1860 B(NE)=B(NE)+NE 

1 870 IF B(NE)<5 THEN 1890 

1880 GOSUB 1710 

1890 PRINT TAB(8);"CURRICULUM:": 
TAB(21);"ETÀ 1 :";L;"PAGA: $";A:"S 
TUDI: ";E$(N) 

1900 PRINT :" FONDO CASSA:$"; 
M:TAB(8);"FELICITA': ”;H:TAB(13) 
;"GLORIA:";F 

1910 PRINT "ESPERIENZA:" 

1920 FOR 1=5 TO 19 STEP 0 
1930 IF B(I)=0 THEN 1950 
1 940 PRINT B(I);S$(I) 

1950 NEXT I 

1960 PRINT :"I TUOI OBIETTIVI:": 
" $";Q:" ";H$:" ";F$ 

1 970 IF B(NE)= 9 THEN 5930 
1980 IF (M<Q)+(H<HP)+(F<FP)THEN 
21 20 

1990 GOSUB 1320 
2000 CALL CLEAR 
2010 M$=" VITTORIA !" 

2020 GOSUB 1360 

2030 FOR C=10 TO 22 

2040 CALL SOUND(-99,l047,0) 

2050 CALL HCHAR(11,C,36) 

2060 CALL HCHAR(13,C,100) 

2070 CALL SOUND(-99,2885,5) 

2080 CALL HCHAR(14,C,105) 

2090 NEXT C 

2100 B(NE)=9 

2110 GOTO 1890 

2120 IF L>40 THEN 5680 

2130 IF MC-20000 THEN 5650 

2140 D=NE 

2150 GOSUB 1430 

2160 IF (B(0)=NE)+(L>30)THEN 218 
0 


2170 IF (DD=@)+(DD=12)THEN 1220 

2180 IF (DD=7)+(DD=11)THEN 920 
2190 IF S=0 THEN 2210 
2200 PRINT INSERISCI":" ";S$ 
(G):"O" 

2210 PRINT :"VALUTA QUESTE POSSI 
BILITA':" 

2220 FOR X=NE TO 3 
2230 IF E(X)=0 THEN 2280 
2240 Y=0 

2250 IF G+X<=21 THEN 2270 
2260 Y=21 

2270 PRINT " ";S$(G+X-Y) 

2280 NEXT X 

2290 PRINT " OCCASIONI": : 

2300 INPUT "FAI LA TUA SCELTA ": 
M$ 

2310 IF S=0 THEN 2330 

2320 IF M$=S$(G)THEN 2470 

2330 IF M$="OCCASIONI" THEN 2550 

2340 FOR X=NE TO 3 
2350 Y=0 

2360 IF G+X<=21 THEN 2380 
2370 Y=21 

2380 IF M$=S$(G+X-Y)THEN 2410 

2390 NEXT X 

2400 GOTO 2300 

2410 IF E(X)=0 THEN 2300 

2420 E(X)=E(X)-NE 

2430 IF G+X>21 THEN 2460 

2440 G=G+X 

2450 GOTO 2470 

2460 G=G+X-21 

2470 S=0 

2480 GOSUB 810 

2490 IF S=0 THEN 2620 

2500 IF B(G)=3 THEN 2670 

2510 K=NE 

2520 M$="INSERISCI "&S$(G) 

2530 GOSUB 1360 

2540 ON S GOTO 2700,3000,3060,31 

20,3170,3240 

2550 D=NE 

2560 GOSUB 1450 

2570 IF G+DD<=21 THEN 2590 

2580 G=G-21 

2590 G=G+DD 

2600 S=0 

2610 GOSUB 810 

2620 IF G<21 THEN 1840 

2630 G=0 

2640 GOTO 1840 

2650 GOSUB 4610 

2660 PRINT :"FONDO CASSA INSUFFI 
CIENTE." 

2670 PRINT :"NON PUOI FARE QUEST 
A SCELTA." 


2680 S=0 

2690 GOTO 1840 

2700 IF N>3 THEN 2670 

2710 IF B(@)= 0 THEN 2740 

2720 PRINT "BORSA DI STUDIO PAGA 

TA" 

2730 GOTO 2770 

2740 PRINT "ISTRUZIONE = $ 5000" 

2750 IF M<5000 THEN 2660 
2760 M=M-5000 
2770 IF N>NE THEN 2930 
2780 PRINT : : NE ; 

2790 PRINT E$(@);" IN:": :" L 

INGUE E LETTERATURE":" SCIENZ 
E SOCIALI": : : 

2800 IF N>NE THEN 2900 
2810 PRINT @; 

2820 PRINT E$(3);" IN:": :" S 

CIENZE":" INGEGNERIA": : : : 

2830 IF N>NE THEN 2900 

2840 INPUT "SCEGLI 1 O 2 ":X 

2850 IF (XONE) * (X<>@) THEN 2840 

2860 N=X+NE 

2870 CALL CLEAR 

2880 IF N = @ THEN 2790 

2890 IF N=3 THEN 2820 

2900 PRINT :"4 ANNI-SENZA REDDIT 

O" 

2910 L=L+4 
2920 GOTO 2970 
2930 N =N+@ 

2940 PRINT :"2 ANNI DI SALARIO G 
ARANTITO" 

2950 L=L+@ 

'2960 M=M+A+A 
2970 RESTORE 5910 
2980 GOSUB 5820 
2990 GOTO 3390 
3000 X=30000 
3010 RESTORE 5880 
3020 GOSUB 5820 
3030 IF N=3 THEN 3390 
3040 IF N=5 THEN 3380 
3050 GOTO 3330 
3060 X=5000 
3070 RESTORE 5890 
3080 GOSUB 5820 
3090 IF N=NE THEN 3110 
3100 K=@ 

3110 GOTO 3340 

3120 X=1000 

3130 RESTORE 5900 

3140 GOSUB 5820 

3150 IF N>NE THEN 3380 

3160 GOTO 3330 
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3170 X=30000 
3180 RESTORE 5910 
3190 GOSUB 5820 
3200 IF N = 4 THEN 3380 

3210 GOTO 3330 

3220 K=B(13)+NE 

3230 GOTO 3340 

3240 IF L<36 THEN 3270 

3250 PRINT :"HAI PASSATO I 35 AN 

NI. " 

3260 GOTO 2670 

3270 X=40000 

3280 RESTORE 5920 

3290 GOSUB 5820 

3300 IF B ( 17)<@ THEN 3320 

3310 K=3 

3320 IF N>NE THEN 3390 
3330 IF B(G)>0 THEN 3390 
3340 PRINT "COSTO $";X 
3350 IF M<X THEN 2650 
3360 M=M-X 
3370 GOTO 3390 
3380 K=@ 

3390 J=0 

3400 PRINT :"PUNTI E DENARO X";K 

3410 GOSUB 1320 
3420 CALL CLEAR 

3430 PRINT "POSSIBILITA'D'ESPERI 
ENZA:": : 

3440 FOR X=NE TO 3 

3450 IF (E(X)=0)+(J+X>10)THEN 35 

1 0 

3460 M$=B$(S,J+X) 

3470 IF LEN(M$)<26 THEN 3500 
3480 PRINT X ;SEG$(M$, NE , 2 5 ) :SEG$ 
(M$,26,28) 

3490 GOTO 3510 
3500 PRINT X;M$ 

3510 NEXT X 

3520 PRINT :"OPPURE": :"4 TENTA 
LA SORTE": : : 

3530 M$="" 

3540 INPUT "SCRIVI IL NUMERO ":X 
3550 X=INT(X) 

3560 IF (X<NE) + (X>4)THEN 3540 

3570 IF X=4 THEN 3620 

3580 IF (E(X)=0)+(SB+X>10)THEN 3 

540 

3590 E(X)=E(X)-NE 
3600 J=J+X 
3610 GOTO 3650 
3620 D=NE 
3630 GOSUB 1450 
3640 J=J+0 . 

3650 CALL CLEAR 

3660 IF J>10 THEN 4510 


3670 PRINT B$(S,J) 


3680 ON J GOTO 3880,3880,3880,42 
60,3920,3920,3960,3960,4320,4500 

3690 IF U=0 THEN 3730 
3700 CALL HCHAR(14,3,100,U) 

3710 H=H+U 
3720 U=0 

3730 IF V=0 THEN 3770 
3740 CALL HCHAR( 1 9,3,1 05 , V) 

3750 F=F+V 
3760 V=0 

3770 IF W=0,THEN 3810 
3780 PRINT "$";W 
3790 M=M+W 
3800 W=0 

3810 PRINT M$: : 

3820 IF T=0 THEN 3410 

3830 FOR Y=NE TO T 

3840 GOSUB 1150 

3850 NEXT Y 

3860 T=0 

3870 GOTO 3410 

3880 T=K*INT{3*RND) 

3890 U=U+(K*INT(9*RND)) 

3900 V=V+(K*INT(9*RND)) 

3910 GOTO 3690 

3920 U=K*INT(11*RND)*B(4 ) 

3930 V=K*INT(11*RND)*B( 1 0) 

3940 W=K*1 000*B(1 6) 

3950 GOTO 3890 
3960 U=K*B(6) 

3970 V=K*B (12) 

3980 W=K*1000*B (18) 

3990 IF J=7 THEN 4020 

4000 IF B(23)>0 THEN 4200 
4010 GOTO 3890 
4020 IF B(22)>0 THEN 4040 
4030 GOTO 3890 

4040 ON B(22)GOTO 4050,41 00,41 30 
,41 70 

4050 F=INT(F/@) 

4060 U=0 
4070 V=0 

4080 M$="LA TUA GLORIA E'DIMEZZA 
TA" 

4090 GOTO 3690 
4100 H=0 

4110 M$="PERDI TUTTA LA FELICITA 

I tl 

4120 GOTO 3690 
4130 M=0 
4140 U=0 

4150 M$="PERDI TUTTI I RISPARMI" 

4160 GOTO 3690 
4170 A=A+(5000*K) 
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4180 M$ = "AUMENTO STIPENDIO $"5.ST 
R$(5000*K) 

4190 GOTO 3690 
4200 A=INT(A/@) 

4210 U=0 
4220 V=0 
4230 W=0 

4240 M$="IN CASSA INTEGRAZIONE" 

4250 GOTO 3690 

4260 D = ié 

4270 GOSUB 1430 

4280 U=K*0*B(8) 

4290 V=K*0*B(14) 

4300 W=K*0*1000*B(20) 

4310 GOTO 3690 
4320 IF SONE THEN 4340 
4330 IF (B(17)=3)+(L>35)THEN 451 
0 

4340 IF K<3 THEN 4360 
4350 B (1 7) =3 
4360 GOSUB 4610 
4370 G=B(24) 

4380 IF G=17 THEN 4410 

4390 GOSUB 810 

4400 GOTO 1840 

4410 B (25)=15 

4420 GOSUB 4460 

4430 S= 6 

4440 CALL CLEAR 

4450 GOTO 2520 

4460 A=A+(B(25)*1000*K) 

4470 PRINT "NUOVO STIPENDIO= 

A: : 

4480 GOSUB 1320 
4490 RETURN 
4500 GOSUB 4460 

4510 PRINT :"SBOCCO ";S$(G): : 

4520 IF S>NE THEN 4550 

4530 GOSUB 4460 

4540 GOTO 4590 

4550 B(G)=B(G)+NE 

4560 FOR Y = NE TO B(G) 

4570 GOSUB 1150 

4580 NEXT Y 

4590 GOSUB 4610 

4600 GOTO 1840 

4610 FOR X=4 TO 22 STEP @ 

4620 B(X)=0 

4630 NEXT X 

4640 B (23)=0 

4650 S=0 

4660 RETURN 

4670 GOSUB 1350 

4680 Z=INT(A*(A/30000)) 

4690 GOTO 5100 

4700 M$="COMPRI UN/A "&S$(G) 

4710 GOSUB 1360 


4720 X=INT(A/l 000) 

4730 Y=0 
4740 Z=A 
4750 GOTO 5040 
4760 GOSUB 1350 

4770 PRINT "SEI STATO QUERELATO" 

• • 

• • 

4780 D=NE 

4790 GOSUB 1430 

4800 IF X=NE THEN 4880 

4310 PRINT : :"COLPEVOLE !" 

4820 IF M< =0 THEN 4850 
4830 Z=INT(M/@) 

4840 GOSUB 5100 

4850 PRINT :"PERDI 1/2 REPUTAZIO 
NE": : : 

4860 F=INT(F/@) 

4870 GOTO 4890 

4880 PRINT : :"INNOCENTE--" : : : 

4890 GOSUB 1150 
4900 RETURN 
4910 GOSUB 1350 
4920 L=L+NE 

4930 PRINT "PERDI 1 ANNO DI TEMP 
O E DI PAGA" 

4940 RETURN 
4950 GOSUB 1350 

4960 PRINT "PERDI IL 25% DEL TUO 
DENARO" 

4970 M=M-INT(M/4) 

4980 RETURN 

4990 M$="SPESE PER HOBBY" 

5000 GOSUB 1360 

5010 X=INT((A/l 000)*RND) 

5020 Y=X 

5030 Z=A-(X*1000) 

5040 IF X=0 THEN 5070 
5050 H=H+X 

5060 CALL HCHAR(16,3,100,X) 

5070 IF Y=0 THEN 5100 
5080 F=F+Y 

5090 CALL HCHAR(18,3,105,Y) 

5100 M=M-Z 

5110 PRINT :"STIPENDIO $";Z 

5120 GOSUB 1320 

5130 RETURN 

5140 GOSUB 1350 

5150 IF M>0 THEN 5180 

5160 Z=0 

5170 GOTO 5100 

5180 D=3 

5190 GOSUB 1430 

5200 Z=X*INT(M/@) 

5210 GOTO 5100 

5220 M$="PRESTITO DA PAGARSI" 
5230 GOSUB 1360 
5240 Z=INT(A/@) 

5250 GOTO 5100 
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5260 GOSUB 1350 

5270 IF M>0 THEN 5300 

5280 PRINT "DIMENTICATELO!" 

5290 RETURN 
5300 D=@ 

5310 GOSUB 1430 
5320 Z=INT(•1*M*0) 

5330 GOTO 5100 

5340 M$=S$(G)&"UNA VACANZA" 

5350 GOSUB 1360 
5360 X=INT(30*RND)+10 
5370 Y=0 
5380 Z=0 

5390 PRINT "VIAGGIO ALLE ISOLE!" 

• • • 

5400 GOTO 5050 

5410 GOSUB 1350 

5420 IF M<A THEN 5490 

5430 D=3 

5440 GOSUB 1430 

5450 Z=(X* 5*A)-A 

5460 M=M+Z 

5470 PRINT ;Z • 

5480 IF Z>0 THEN 5500 
5490 PRINT :"SPIACENTE" 

5500 RETURN 

5510 GOSUB 1350 

5520 IF M<20000 THEN 5490 

5530 X=24 

5540 Y=4 

5550 Z=20000 

5560 PRINT "WEEKEND DA RICORDARE 

I " 

• 

5570 GOTO 5050 

5580 GOSUB 1350 

5590 IF M>0 THEN 5610 

5600 PRINT "GRAZIE, COMUNQUE." 

5610 Z=INT(.1*M) 

5620 Y=4 


5630 X=INT(Z/l000)+4 
5640 GOTO 5040 
5650 CALL CLEAR 
5660 PRINT "FALLIMENTO!!" 

5670 GOTO 5700 
5680 CALL CLEAR 

5690 PRINT "HAI";L;"ANNI E NON H 
AI":"RAGGIUNTO I TUOI OBIETTIVI. 

Il 

5700 GOSUB 1320 
5710 CALL CLEAR 
5720 M$="HAI PERSO" 

5730 GOSUB 1360 

5740 X=14080 

5750 CALL SOUND(-99,X,@) 

5760 X=X/@ 

5770 IF X= 55 THEN 2100 

5780 GOTO 5750 

5790 CALL KEY(0,R,ST) 

5800 IF ST= 0 THEN 5790 

5810 RETURN 

5820 READ Bl 

5830 FOR B2=NE TO Bl 

5840 READ B3,B4 

5850 B(B3)=B4 

5860 NEXT B2 

5870 RETURN 

5880 DATA 7,4,1,6,12,8,6,10,1,12 
,12,24,17,25,5 

5890 DATA 7,4,1,16,5,20,3,22,4,2 
3,1,24,10,25,3 

5900 DATA 7,4,1,6,8,8,1,14,1,20, 
1,24,4,25,2 

5910 DATA 7,6,5,12,10,14,4,16,10 
,22,1,24,10,25,5 

5920 DATA 7,4,1,12,10,16,5,18,-5 

,20,10,24,4,25,7 

5930 END 


Integravision 


TI-99/4A 

fxtendcd Basic 


Ecco due programmi di... utilità per TI 99/4a 
fornito di modulo Extended Basic. 

Il primo programma calcola l'integrale defini¬ 
to di una funzione; questa si trova in linea 220 
e può essere modificata a piacere. Il program¬ 
ma chiederà gli estremi di integrazione ed il nu¬ 
mero di intervalli di scansione usati per il cal¬ 


colo: questo è direttamente proporzionale alla 
precisione di calcolo ma inversamente propor¬ 
zionale alla velocità di esecuzione. È possibile 
selezionare la procedura di calcolo tra il meto¬ 
do di Cavalieri-Simpson e quello dei trapezi. 
Questo programma può essere modificato in 
modo molto semplice per funzionare sotto 
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TI BASIC. 

Il secondo programma è costituito da due sot* 
toprogrammi, denominati rispettivamente CO¬ 
PYREC e COPYGET, che permettono rispetti¬ 
vamente di salvare su nastro una schermata 
(sia essa in alta risoluzione o no, con o senza 
caratteri ridefmiti) e di ricaricarla in memoria 
visualizzandola. 

I due sottoprogrammi vanno inseriti in un nor¬ 
male programma EXTENDED BASIC che chia- 

programma I 

100 CALL CLEAR :: PRINT "PROGR.C 
ALCOLO INTEGRALI DEF.": :"FUNZIO 

NE INTEGRANDA SU LINEA220" : : : 

• • 

• • 

110 INPUT "estremo sinistro? ":A 

120 INPUT "estremo destro ? ":B 

130 INPUT "n.di intervalli per c 
alcolo?":N 

140 PRINT "1","metodo trapezi" 
150 PRINT 

160 vPRINT "2","metodo simpson" 
170 PRINT 

180 INPUT "scegli 1 o 2 ": METODO 
190 PRINT 

200 PRINT ."ATTENDERE..." 

210 IN=(B-A)/N :: S=0 
220 DEF FNX(X)=X~2 
230 Yl=FNX(A) 

240 ON METODO GOTO 250,270 
250 FOR 1 = 1 TO N : : X2 = I*IN+A :: 
Y2=FNX(X2) : : S=S+(Yl+Y2)/2*IN : 

: Yl =Y2 :: NEXT I :: PRINT : : : 

:"valore integrale definito m 
etodo trapezi:";S 
260 END 

270 FOR 1 = 1 TO N : : X2 = I*IN+A :: 

Y2=FNX(X2) : : S = S+(1/3)*IN*(4*Yl 
+ 2*Y2): : Yl=Y2 :: NEXT I :: K=S+ 
(1/3)* IN*(FNX(A)+FNX(B)): : INTEG 
RALE=.5*K 

280 PRINT "vai.integrale definit 
o met.simpsonINTEGRALE 

290 END 

programma 1 

10000 SUB COPYREC 
10010 DIM A$(768) : : FOR R=1 TO 2 
4 :: FOR C = 1 TO . 32 :: CALL GCHAR 
(R,C,COD) : : IF COD = 32 OR COD = 31 
THEN 10060 


mi COPYREC quando si vuole salvare la scher¬ 
mata che attualmente appare su video, oppure 
COPYGET quando si vuole visualizzare una 
schermata precedentemente realizzata. 

Chi abbia mai disegnato con il TI 99 curve o 
superfici in alta risoluzione, sa quanto tempo 
occorra per ottenerle. 

Con COPYREC potrete salvarle su nastro e vi¬ 
sualizzarle quando volete in un centesimo del 
tempo altrimenti necessario per disegnarle. 

10020 CALL CHARPAT(COD,D$) : : B$ = 
STR$(COD) : : IF CODC100 THEN B$ = " 
0" & B$ 

10030 R$=STR$(R):: C$=STR$(C):: 
IF R<10 THEN R$="0"&R$ 

10040 IF COO THEN C$ = "0"&C$ 
10050 N=N+1 :: A$(N)=R$&C$&B$&D$ 

10060 NEXT C :: NEXT R :: CALL C 
LEAR :: CALL CHARSET :: OPEN #1: 
"CSI".OUTPUT,INTERNAL.FIXED 192 
:: PRINT #1 :N :: FOR 1 = 1 TO N ST 
EP 8 

10070 PRINT #1:A$(I);A$(1+1);A$( 
1+2);A$(1+3);A$(1+4);A$(1+5);A$( 
1 + 

);A$(1 + 7) : : NEXT I :: CLOSE # 

1 

10080 SUBEND 

10090 SUB COPYGET 

10100 DIM A$(768) : : OPEN #l:"CSl 

".INPUT ,INTERNAL,FIXED 192 :: I 

NPUT #1:N :: FOR 1=1 TO N STEP 8 

10110 INPUT #1 :A$(I) ,A$(1 + 1) ,A$( 
1+2),A$(1+3),A$(1+4),A$(I+5),A$( 
1 + 6) ,A$(1 + 7) : : NEXT I :: CLOSE # 
1 : : CALL CLEAR 

10120 FOR 1 = 1 TO N : : R=VAL(SEG$ 
(A$(I) ,1 ,2)) : : C=VAL(SEG$(A$(I) , 
3,2)):: COD=VAL(SEG$(A$(I),5,3)) 
:: PAT$=SEG$(A$(I) ,8,16) : : IFCO 
D=0 THEN 10140 

10130 CALL CHAR(COD,PAT$) : : CALL 
HCHAR(R,C,COD) : : NEXT I 
10140 SUBEND 


ERRATA CORRIGE 

A causa di un errore di impaginazione, nel 
numero 1 7 della rivista sono state inverti¬ 
te le versioni per VIC 20 e C64 nel pro¬ 
gramma "Barrier Battle". 

Ci scusiamo con i lettori. 
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Campi di forza 


Sinclair?'! 

Spectrupf | - 

6K 48K 


Ecco uno battaglio contro i soliti alieni che nulla 
ha a che fare con cannoni laser, orde agguer¬ 
rite di astronavi provenienti da Marte, ed al¬ 
tre amenità. In realtà, se si intende ricercare 
a tutti i costi una parentela, questo program¬ 
ma è stato certamente ispirato da 'breakout', 
il classico gioco nel quale si abbattono file di 
colorati mattoni utilizzando racchetta e palli¬ 
na; tuttavia 'Campi di forza' ne ribalta la logi¬ 
ca e lo scopo. Infatti qui dovete impedire che 
l'alieno anti-materia (possiamo considerarlo co¬ 
me fosse la pallina!) distrugga il campo di for¬ 
za (il muro di mattoni) che è posto a protezio¬ 
ne della Terra. Per riuscire nello scopo dovete 
spostarvi lungo lo schermo muniti di una pi- 

10 rem *********************** 

15 REM * CAMPI DI- FORZA * 

20 REM *********************** 

50 INK 7: PAPER 0: BORDER 0: 

CLS 

60 GO SUB 9000 
70 GO SUB 8000 
80 PRINT AT 0,0; PAPER 2; 

INK 6;" PUNTI 0 MAX 

PUNTI 0 " 

90 LET hi=0 
100 GO SUB 4000 

110 BEEP 1,30: PRINT AT 2,8;"AL 
LARME: ALIENI!": PAUSE 100: 
PRINT AT 2,8;" 

": PAUSE 50 
120 LET sc=0 

130 LET p=15 : LET q=l: LET f = 0: 
LET g=1 

140 LET v=l: LET w=l: LET h=l: 
LET i=l 

150 LET x=15 : LET y=20 
160 LET a=x: LET b=y 
170 LET y=y-(INKEY$="q" AND y>3 
)+(INKEY$="a" AND y<20) 

180 LET x=x-(INKEY$="o" AND x>0 
)+(INKEY$="p" AND x<31) 

190 IF ATTR (y,x)=5 THEN 
BEEP .01,40 


stola ad energia, capace di ricostruire il cam¬ 
po di forza nei punti ove esso è stato distrutto 
dall'odioso alieno. La partita avrà termine nel 
momento in cui il nemico riuscirà a raggiunge¬ 
re il suolo terrestre. 

Il movimento è controllato dai tasti 'Q' & ‘A’ 
per gli spostamenti orizzontali e ’O' & ‘P‘ per 
quelli in senso verticale. Il tasto Z' vi permet¬ 
te invece la ricostruzione del campo energetico. 
Il listato contiene anche le linee atte a consen¬ 
tire la memorizzazione su nastro (e la verifi¬ 
ca) del programma stesso: per sfruttare que¬ 
sta possibilità, dopo aver battuto il listato, in¬ 
serite come comando ad esecuzione immedia¬ 
ta GO TO 9990. Buon divertimento... 

200 PRINT AT b,a ;" ";AT y,x; 

INK 7;"A" 

210 PRINT AT q,p;" ";AT q,p-l;" 

it 

220 IF INKEY$="z" THEN PRINT 
AT y-1,x ; INK 5;"CC" 

240 LET p=p+v: LET q=q+w 
250 IF p= 31 OR p=0 THEN LET v = 
-v: BEEP .01,15 
260 IF q=1 THEN LET w=-w: 

BEEP .01,15 

270 IF ATTR (q,p)=5 THEN 

BEEP .01,50: GO SUB 3000 
280 IF ATTR (q,p)=4 THEN 
GO TO 7000 

290 PRINT AT q,p; INK 6;"B" 

300 IF sc<500 THEN GO TO 380 
310 PRINT AT g,f;" ";AT g,f-1;" 

II 

320 LET f=f+h: LET g=g+i 
330 IF f = 31 OR f = 0 THEN LET h= 
-h: BEEP .01,15 
340 IF g=1 THEN LET i=-i: 

BEEP .01,15 

350 IF ATTR (g,f)=5 THEN 

BEEP .01,50: GO SUB 3500 
360 IF ATTR (g,f)=4 THEN 
GO TO 7000 

370 PRINT AT g,f; INK 6;"B" 

380 LET sc=sc+1: PRINT AT 0,7; 

PAPER 2; INK 6;se;" " 

390 GO TO 160 
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400 IF SC>=hi THEN LET hi=sc: 
PRINT AT 0,25; PAPER 2; 

INK 6 ; hi : PRINT AT 0,7; 
PAPER 2; INK 6;"0 " 

410 FOR z=l TO 20 

420 PRINT AT z,0; INK 0;" 

{32SG8}" 

430 NEXT z 
440 GO TO 100 
3000 LET v=v: LET w=-w 
3010 IF q=21 OR q=0 THEN LET w= 
-w 

3020 RETURN 

3500 LET h=h: LET i=-i 
3510 IF g=21 OR g=l THEN LET i= 
- i 

3520 RETURN 

4000 FOR s=l TO 30: FOR t=5 TO 1 
5 STEP 2 

4010 PRINT AT t,s; INK 5;"C": 

BEEP .01,s 
4030 NEXT t: NEXT S 
4040 FOR j =0 TO 31 
4050 PRINT AT 21,j; INK 4;"D": 

BEEP .01,2*j 
4060 NEXT j 

4070 PRINT AT 2,10; INK 0;" 

{9SG8}" 

4080 RETURN 

7000 IF ATTR (q,p)=4 THEN 

PRINT ; INK 6; BRIGHT 1; 

AT q-1 ,p-l;"FHJ";AT q-2,p-l 
;" EGI ": BEEP .5,1: BEEP .5, 
1: BEEP 2,-2: PRINT AT q-1, 
p-1 ; INK 0 ;”{3SG8}";AT q-2, 
p-1 ; INK 0 ; " {3SG8 } " 

7010 IF ATTR (g,f)=4 THEN 

PRINT ; INK 6; BRIGHT 1; 

AT g-1 ,f-l;" FHJ ";AT g-2,f-l 
;" EGI ": BEEP .5,1: BEEP .5, 
1: BEEP 2,-2: PRINT AT g-1, 
f-1 ; INK 0;"{3SG8}";AT g-2, 
f-1 ; INK 0 ; " {3SG8 } " 

7020 PRINT AT 21,0; PAPER 4; 

INK .7; BRIGHT 1; FLASH 1;" 
DDDDDDDDDDDDDDDDDDDDDDDDDDD 
DDDDD " 

7030 PRINT AT 3,6; PAPER 1; 

INK 7; FLASH 1;"LA PARTITA 
E' FINITA" 

7040 FOR b=60 TO -20 STEP -2 
7050 BEEP .01,b 
7060 NEXT b 

7070 INPUT "UN'ALTRA PARTITA (S/ 
N)? "; LINE a$ 

7080 IF a$="s" OR a$="S" THEN 
PRINT AT 0,7; PAPER 2; 

INK 6;"0 ": GO TO 400 


7090 IF a$="n" OR a$="N" THEN 
CLS : GO TO 7110 

7100 IF a$< >"s" OR a$<>"S" 

OR a$< >"n" OR a$<>"N" 

THEN GO TO 7070 

7110 PRINT INK RND*6;TAB RND*15 
;"O.K. CIAO..(per il momen 
to!)..": POKE 23692,255: 

GO TO 7110 

8000 BEEP .1,30: PRINT AT 0,0; 

INK 5;"*CAMPI DI 
FORZA*" 

8010 PRINT AT 2,0; BRIGHT 1; 

INK 3;"Quanto riuscirai a 
resistere prima che un o 
dioso alieno anti-materia r 
iesca a distruggere il camp 
o di forza che protegge il 
nostro pianeta..?"' 

BRIGHT 0; INK 6;" "; 

BRIGHT 1; INK 3'"Per contr 
astare il nemico, non devi 
attivare i soliti laser , 
ecc., ma tentare di ricost 
ruire il campo di forza." 

8020 PRINT INK 4;"Puoi ricostru 
ire il muro usando la tua p 
istola ad energia; puoi ino 
ltre attraversare il campo 
diforza, anche se in questo 
modo tu stesso ne comprom 
etti la solidità'" 

8030 PRINT ' INK 3; BRIGHT l;"No 
n ti dico poi quando arriva 
anche il secondo alieno. 


8032 PRINT #0 ;AT 1,0; PAPER 1; 

INK 7;" PREMI UN TASTO PE 
R CONTINUARE ": PAUSE 0: 

CLS 

8040 PRINT AT 3,11; INK 2; 

BRIGHT 1 ;"CONTROLLI :" 

8050 PRINT "" INK 6;"Su. 

.Q" ' ’ "Giu .A 

" ' ' "Destra.P" " "Sin 

istra.O" ' ' "Ripristina 

.Z" 

8060 PRINT #0;AT 1,0; PAPER 1; 

INK 7; FLASH 1;" PREMI U 
N TASTO PER GIOCARE 
8070 PAUSE 0: CLS 
8080 RETURN 

9000 FOR n=l TO 10 
9010 READ a$ 

9020 FOR p=0 TO 7 

9030 READ q: POKE USR a$+p,q 

9040 NEXT p: NEXT n 
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9050 DATA "a",3,27,27,1 5,63,27,1 
20,64 

9052 DATA ”b",66,60,90,1 26,1 26,9 
0,66,36 

9054 DATA "c",28,34,73,89,77,73, 
34,28 

9056 DATA "d",241,159,241,159,24 
1,159,241,159 

9058 DATA "e",0,0,2,2,9,37,16,8 

9060 DATA "f", 1 00,2,225,24,70,0, 
252,0 

9062 DATA "g", 1 6,1 46,84,84,85,1 7 
,130,130 

9064 DATA "h", 84,84,1 7,1 86,1 24,1 
24,254,16 


9066 

DATA 

16,32 

"i", 0,0,1 28,1 28,32,72, 

9068 

DATA 

”j",76,1 28,1 4,48,1 96,0 


,126, 

0 

9070 

RETURN 

9990 

CLS : 

SAVE "campiforza" 


LINE 

1 

9995 

PRINT 

AT 10,0;"Avvolgi/fai 


ripartire il nastro" 

9997 

VERIFY ”” 

9999 

PRINT 

AT 10,0; INK 3; 


BRIGHT 1;" VERIFI 

CATO ": STOP 


Predatori galattici 


X 


iindairp 

Spect rum 


I6K/48K 


‘Predatori galattici' rappresenta la versione BA¬ 
SIC del notissimo ‘Space Invadersi gioco che 
ha catalizzato l'interesse degli appassionati di 
videogame agli albori dell'era informatica (non 
è poi passato tanto tempo...!). In questo gioco 
i predatori sono raggruppati in una ordinatis¬ 
sima squadriglia che, lentamente ma incessan¬ 
temente, si avvicina alla Terra. Sul pianeta siete 
rimasti soltanto voi e il vostro cannone semo¬ 
vente laser (...questa l'ho già sentita!...) ed ave¬ 
te quindi il compito, nonché il dovere morale, 
di battervi per la salvezza della specie umana 
(cioè per salvarvi la pelle). Una volta distrutta 
una flotta nemica, prima di passare ad affron¬ 
tare quella successiva, dovrete vedervela con 

1 INK 7: PAPER 0: BORDER 0: 

CLS 

3 FOR a=1 TO 30: PRINT INK 7 
;AT 5,a ;"*";AT 15,a;"*": 

BEEP .1 ,a : NEXT a 

4 LET a=8 

5 PRINT INK 4 ;AT 10,7;"PREDA 
TORI GALATTICI”: PAUSE 100: 

CLS 

10 GO SUB 9500 

11 GO SUB 9950 
1 2 GO TO 20 


un 'astronave solitaria dai movimenti irregola¬ 
ri: durante tutta questa fase perderete punti 
in ragione del tempo trascorso fino a quando 
riuscirete a colpire il nemico 5 volte; il lento in¬ 
cedere del tempo è evidenziato tramite una li¬ 
nea (appare in alto sullo schermo, dopo la pa¬ 
rola BONUS) che si riduce inesorabilmente. 
Avrete certamente già capito che, al termine 
di questo duello realizzerete un BONUS mag¬ 
giore quanto più siete stati rapidi nell'elimina¬ 
re il nemico. 

La partita ha termine quando avete perso tre 
vostri cannoni, o quando gli alieni riescono a 
varcare una soglia, limite di sicurezza per la 
Terra, evidenziata da due segnali rossi. 

13 IF INKEY$="c" AND e>l 

THEN PRINT AT 21,e;” ": 

LET e = e-1 : PRINT INK 3; 

AT 21,e;"B": GO TO 17 

14 IF INKEY$="v" AND e<30 

THEN PRINT AT 21,e;" ”: 

LET e = e+l: PRINT INK 3; 

AT 21 ,e ;"B": GO TO 17 
16 IF INKEY$=”n" THEN LET z=e 

*8+4: INK 7: PLOT OVER l;z 
,16: DRAW OVER 1;0,100: 

BEEP .05,40: PLOT OVER 1; 
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z,16 : DRAW OVER 1;0,100: 

LET x=l 

17 IF s>h THEN LET h=s 

18 PRINT INK 5 ;AT 0,0;"PUNTI 
";S;AT 0,20;"MAX ";h: 

RETURN 

20 PRINT INK 7 ;AT ab,a;a$ 

21 PRINT INK 6 ;AT ac,a;b$ 

22 PRINT INK 5;AT ad,a;c$ 

23 PRINT INK 4;AT ae,a;d$ 

24 IF ae>14 THEN BEEP .005,ae 

40 PRINT INK 3 ;AT 21,e;"B" 

41 Ir ae=21 THEN PRINT INK 2 
;AT 14,0;"{32G3}": GO TO 10 

00 

60 LET u=u+l: IF u+p=13 THEN 
LET m=INT (RND*20)+a: 

LET n=1 

63 Ir n=0 THEN GO TO 103 
83 IF SCREEN$ (ab,m)="" THEN 
GO TO 95 
90 GO TO 103 

98 FOP c=ae+l TO 20 STEP 2: 
PRINT INK 7 ;AT c,m;"*": 
BEEP .005,c*3: PRINT AT c, 
m;" ": NEXT c 

100 LET n=0: LET u=0 

101 IF m=e THEN -LET 1=1-1: 

PRINT AT 0,13+1;" ": 

BEEP 1,20: BEEP 1 ,40 

102 IF 1=0 THEN GO TO 1000 

103 GO SUB 13 

121 IF x=0 THEN GO TO 210 

123 LET k=e-a+l: BEEP .05,-10 
130 IF SCREENS (ae,e)="" AND x= 
1 THEN LET d$ (k TO k)=" ": 
LET s=s+25: LET nm=l: 

GO TO 200 

140 IF SCREEN$ (ad,e)="" AND X= 
1 THEN LET c$ (k TO k) =" ": 
LET s=s+50: LET nm=l: 

GO TO 200 

150 IF SCREENS (ac,e)="" AND x= 
1 THEN LET b$ (k TO k) =" ": 
LET s=s+75: LET nm=l: 

GO TO 200 

160 IF SCREEN$ (ab,e)=" H AND x= 
1 THEN LET a$(k TO k)=" ": 
LET s=s + l00 : LET nm=l: 

GO TO 200 

170 IF nm=0 THEN LET s=s-(3+p) 

200 LET x=0: IF nm=l THEN 
LET t=t+l0 : LET nm=0 
210 PRINT AT 2,0 ;e$;" " 

460 PRINT AT ab,a;e$;AT ac,a;e$ 
;AT ad,a;e$;AT ae,a;e$ 


470 IF a=l THEN LET q=0: IF vb 
> = 1 0-p THEN LET ab=ab+l: 
LET ac=ac+l: LET ad=ad+l: 
LET ae=ae+l 

480 IF a=l0 THEN LET q=l: IF v 
b>=l0-p THEN LET ab=ab+l: 
LET ac=ac+l: LET ad=ad+l: 
LET ae=ae+l 

485 IF a=l OR a=10 THEN LET vb 
=vb+l 

490 IF q=0 THEN LET a=a+l 
500 IF q=1 THEN LET a=a-l 
510 IF t=400 THEN LET t=0: 

LET s=s+500: BEEP 1/3,10: 
BEEP 1/3,-6: BEEP 1,20: 

LET bn=l: PRINT AT 14,0;" 

";AT 14,31;" ": GO TO 2000 
520 GO TO 20 

1010 PRINT AT 10,6;"LA PARTITA E 
' FINITA" 

1020 BEEP 1/3,0: BEEP 1/3,5: 

BEEP 1/3,7: BEEP 1,12 
1030 INPUT "PREMI S PER UN'ALTRA 
PARTITA";z$ 

1035 IF z$="s" THEN GO SUB 9620 
: GO TO 11 
1050 STOP 

2000 LET qa=l00 

2001 PRINT INK 5;AT 2,0;"BONUS" 
: PLOT 41,152: DRAW 200,0 

2006 LET gh=INT (RND*20)+5 

2007 LET op=0 
2010 LET fg=9 

2015 LET shot=shot+l 

2016 IF 1=0 THEN GO TO 1000 

2017 IF shot=l2-p THEN FOR c=fg 

TO 20 STEP 3: PRINT INK 7 
;AT c,gh;"*": BEEP .05,c*3: 
PRINT AT c,gh;" ": NEXT c: 
IF gh=e THEN LET 1=1-1: 
BEEP 1,20: BEEP 1,40: 

PRINT AT 0,13 + 1;" " : 

GO TO 2006 

2018 FOR c=1 TO 10: NEXT c 

2019 IF shot>=l2-p THEN LET sho 
t = 0 

2020 PRINT AT fg,gh;" " 

2021 PLOT OVER 1 ;qa*2+41,152 : 

PLOT OVER 1;qa*2+40,152 

2022 LET s=s-l 

2023 IF qa>0 THEN LET qa=qa-l 
2025 LET cv=INT (RND*6) 

2030 IF gh>l AND cv=0 OR cv=4 
THEN LET gh=gh-l 
2040 IF gh<29 AND cv=l OR cv=5 
THEN LET gh=gh+l 
2050 IF fg>3 AND cv=2 THEN 
LET fg=fg-l 
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2060 IF fg<14 AND cv=3 THEN 
LET fg=fg+1 

2070 PRINT INK 4 ;AT fg,gh;"A" 

2080 GO SUB 13 

2110 IF x=l AND e=gh THEN 

PRINT AT fg,gh;" LET bc 

=bc+l: LET s=s+qa: LET gn = 
INT (RND*20)+5: BEEP 1/3,20 
: BEEP 1,-10: BEEP .5,5 
2112 LET x=0 
21 1 5 PRINT AT fg,gh;" " 

2120 IF bc<5 THEN GO TO 2007 
2130 PRINT AT 2,0;" 

II 

2210 GO SUB 9700 
2220 GO TO 20 

9500 LET h=0: PRINT "PREDATORI G 
ALATTICI" 

9504 PRINT "-" 

9506 PRINT AT 3,0;"Scopo del gi 
oco e 1 quello di colpire 
ed abbattere i predatoriali 
eni prima che essi riescano 

a colpire la tua astronav 
e per tre volte, e comunqu 
e prima che gli alieni supe 
rstiti riescano a oltrepas 
sare l'estremo livellodi gu 
ardia. " 

9507 INK 7: PRINT "Ogni volta eh 
e ne distruggi una squadrig 
lia, essi riappariranno nuo 
vamente in alto sul video; 

tuttavia prima di passare 
alla nuova ondata,dovrài 
colpire ben 5 volte un alie 
no solitario." 

9509 PRINT "Perderai punti in re 
lazione al passare del tem 
po durante questafase, ma g 
uadagnerai BONUS se sarai 
sufficientemente rapido." 
9512 INPUT "PREMI UN TASTO"; p$ : 
CLS 

9517 PRINT AT 7,0;"PREMI C PER M 
UOVERTI A SINISTRA PREMI V 
PER MUOVERTI A DESTRA PRE 
MI N PER FAR FUOCO" 

9520 FOR f =USR "a" TO USR "b" + 7 

9530 READ dato: POKE fidato 
9540 NEXT f 

9600 DATA 24,60,126,126,255,255, 
255,255 

9605 DATA 60,126,255,189,153,24, 
255,126 


9610 PRINT INK 7 ;AT 12,10;"B 1 

00 PUNTI"; INK 6 ;AT 14,10;" 
B 75 PUNTI"; INK 5;AT 16, 
10;"B 50 PUNTI"; INK 4; 

AT 18,10;"B 25 PUNTI" 

9620 INPUT "LIVELLO DI GIOCO (1- 
5)? ";p 

9630 IF p<l OR p>5 THEN GO TO 9 
620 


9640 

9700 

CLS 

LET 

ii 

: LET 
a$ = " A 

s = 0 
A A 

A 

A 

A 

A 

A 

A 

A 

971 0 

LET 

ii 

b$ = " A 

A A 

A 

A 

A 

A 

A 

A 

A 

9720 

LET 

ii 

c$ = " A 

A A 

A 

A 

A 

A 

A 

A 

A 

9730 

LET 

d$ = " A 

A A 

A 

A 

A 

A 

A 

A 

A 


ii 


9910 LET bc=0: IF s>0 AND p<10 
THEN LET p=p+1 
9920 PRINT INK 2 ;AT 14,0;" 

{SG8}";AT 14,31 ;"{SG8}" 

9930 LET vb=0: LET ab=l: LET ac= 
3: LET ad=5: LET ae=7: 
RETURN 

9950 LET x=0: LET m=31: LET u=0 
9960 LET t=0: LET n=0: LET q=0 
9970 LET ab=1: LET ac=3: LET ad= 
5: LET ae=7 
9975 LET e$=" 

II 

9980 LET nm=0: LET 1=3: LET e=15 

9985 PRINT INK 5;AT 0,13;" BBB " 
9987 LET shot=0: LET gh=15 
9990 RETURN 
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Sno-Cat 


Joystick 


C64 


Lo Sno-Cat (gatto delle nevi) è un potentissimo 
mezzo cingolato dotato di motore turbocom¬ 
presso. È capace di correre sulla neve a oltre 
ISO chilometri orari ed ha una ripresa formi¬ 
dabile. Non è però facile guidarlo, poiché il 
cambio di marcia durante l’accelerazione av¬ 
viene automaticamente: lo Sno-Cat parte in se¬ 
conda, passa in terza dopo IO secondi ed infi¬ 
ne innesta la quarta dopo 50. Non accelera 
ulteriormente, ma non sarebbe necessario: co¬ 
me scoprirete, già in terza è difficile mantene¬ 
re il controllo di questo mezzo micidiale! 


100 POKE53281,1:POKE53280,0 

110 POKE52, 60 :POKE56,6 0 

120 PRINT"{CLR}" 

130 DATAI 20,169,73,141 ,20,3,169, 
3 f 141 . 

140 DATA21,3,88,96,169/208,133,2 
52,169 

150 DATA3,133,251,162,1,160,0,17 
7,251 

160 DATA105,01,144,2,169,251,145 
,251,224 

170 DATA7,240,8,232,230,251,230, 
251,24 

180 DATA144,234,173,1,220,41,15, 
201 

190 DATAI!,240,7,201,7,240,16,76 
,49,234,173,0,208,201,32,240 
,246,206,0,208 

200 DATA24,1 44,240,1 73,0,208,201 
,255,240,233,238,0,208,24,14 
4,227,0,0,0,0,0 

210 F0RU=828T0921:READQ:POKEU,Q: 
NEXT 

220 SYS828:POKE53248+21,0:VIC=53 
248 



Potete pilotarlo con il Joystick n. I ma... at¬ 
tenti agli alberi! Premendo il pulsante aziona¬ 
te i suoi potentissimi freni, che sono in grado 
di ridurre istantaneamente la velocità fin qua¬ 
si a zero se vi trovate in situazioni pericolose. 
Non abusatene. però: mentre frenate, il mi¬ 
suratore della distanza percorsa si ferma, per 
cui voi non procedete più verso la meta, che 
è la cima della montagna. Il tempo, invece, 
continua a scorrere, ed il vostro punteggio fi¬ 
nale sarà più basso. 


230 GOSUB700 
240 REM 
250 GOSUBl290 
260 POKE856,2 

270 X5=RND(-SQR(RND(1)*TI)) 

280 S = 53 24 8 : PRINT" {-CLR} { BLK } " 

290 POKE53281,3 

300 FORU = 1 024TO1 063 :POKEU,16 0:PO 
KEU+960,160 

310 POKE54 27 2+U,6 :POKE54 27 2+U+96 
0,6:NEXT 

320 FORU=l024TO1984STEP40:POKEU, 
160 :POKEU + 33,1 60:POKEU+39,1 6 
0 

330 POKEU+54272,1 4:POKE54 27 2+U + 3 
3,14:POKE54 272+U + 39,14 :NEXT 
340 POKE53281,1 

350 FORU=OTOl4STEP2:POKEU+VIC,(U 
*18):NEXT 
360 POKE2040,253 

370 POKEVIC + 28,34 :POKEVIC+37,5 :P 
OKEVIC+38,5 

380 FORU = 4 0TO4 7:POKEVIC+U,5 :NEXT 

390 POKEVIC+21,255 
400 FORI = 1T07:POKE2040+I,2 52 :NEX 
T 

410 DI=254 
420 X = 1 50 : DI = 0 

4 30 POKEVIC ,X:TI$="000000" : A$ (2) 
="II{ 8 SPAZI}":A$(3)="III 
{ 2 SPAZI}":A$(4)="IV 
{ 3 SPAZI}” 

440 Al=PEEK(VIC + 30) : FORI=0TO24:P 
OKE54 272+1,0 :NEXT 
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450 POKE54296,1 5:POKE54273,0:POK 
E54277,85:POKE54 278,85:POKE5 
4276,129 

460 A$(1)="FRENI{ 5 SPAZI}":G=2 
470 1 = 0 :A=INT(RND(1)* 7)+1 :IFPEEK 
( VIC +(A* 2)+1)>240THENI = 1 
480 Al=PEEK(VIC+30)AND 1 :IFA1THEN 
1 820 

490 IFBR=OTHENPOKE856,G 
500 IFBR=0THENIF(PEEK(56321)ANDl 
6)=OTHENPOKE856,1 :BR=1:GOSUB 
2300 

510 IFBRTHENDI=DI-1 
520 IFBRTHENIF(PEEK(56321)ANDl6) 
=16THENPOKE856,G:BR=0:POKE54 
276,129:GOSUB2330 
530 DI=DI+1:PRINT"{RVS}{HOME} DA 
PERCORRERE :{ 5 SPAZI } 

{ 4 SIN}"400-DI;:IFDI>=400TH 
ENI 550 

540 IFTI$="000010"THENG=3 
550 IFTI$ = "00 00 50"THENG=4 
560 PRINTTAB(19); "{RVS} 

{ 2 SPAZI}MARCIA:";A$(PEEK(8 
56) ) ; 

570 PRINT"{HOME}{ 2 GIU'}"TAB(34 
){RVS}"RIGHT$(TI$,5) 

580 PRINT"{GIU'}"TAB(34)"TEMPO" 

590 POKE54272,G*30+20 

600 IFTI$ = "000 00 8"THENPRINT" 

{HOME}{ 4 GIU'}"TAB(10);"CAM 
BIO MARCIA" 

610 IFTI$ = "000048"THENPRINT" 

{HOME}{ 4 GIU'}"TAB(10);"CAM 
BIO MARCIA" 

620 IFTI$="000011"THENPRINT" 
{HOME}{ 4 GIU'}"TAB(10);" 

{ 13 SPAZI}" 

630 IFTI$="000051"THENPRINT" 

{HOME}{ 4 GIU'}"TAB(10) ; " 

{ 13 SPAZI}" 

640 IFI=0THEN470 
650 POKE2040+A,252 
660 POKEVIC+(A* 2 ) +1 0 
670 Al=PEEK(VIC+30)ANDl:IFAlTHEN 
1 820 

680 POKE54 272,PEEK(856)* 1 2 
690 GOTO47 0 
700 REM 

710 PRINT"{CLR}" 

720 DATA0,0,1 20,1 98,60,204,1 98,1 
02 

730 DATAI 92,246,102,120,246,102, 
12,222,102 

740 DATA204,222,1 02,1 20,1 98,60,0 
,0,0 

750 1 = 250 :GOSUB770 
760 GOTO800 


770 FORR=I*64TO(1*64)+62:POKER,0 
: NEXT 

780 FORU=1*64+19TOI*64+45:READQ: 

POKEU,Q:NEXT 
790 RETURN 
800 1=251:GOSUB770 
810 DATA0,0,0,120,49,248,204,120 
,96 

820 DATAI 92,204,96,192,252,96,19 
2,204,96 

830 DATA204,204,96,120,204,96,0, 
0,0,0 

840 POKE2040,2 50 :POKE2041 ,250:PO 
KE2042,251:VIC=53248 
850 POKEVIC+21,6 :POKEVIC + 29,7 : PO 
KEVIC+23,7 

860 POKEVIC+2,136:POKEVIC+4,188 
870 POKEVIC+41,14:POKEVIC+40,14 
880 POKEVIC + 3,0 :POKEVIC+5,0 
890 S = 54272 :POKES+24,15:POKES+5, 
8 5 :POKES+6,85:POKES+12,8 5 : PO 
KES+13,85 

900 POKES+4,33 :POKES+1 1,17 
910 IFPEEK(VIC+3)>=127THENPOKEVI 
C+l,PEEK(VIC+3):GOTO940 
920 POKES+1,128-PEEK(VIC+3):POKE 
S+8,128-PEEK(VIC+5) 

930 GOTO910 

940 POKEVIC,PEEK(VIC+2):POKEVIC+ 
21,5:POKEVIC+1,127:POKEVIC+3 
9,6 

950 IFPEEK(VIC+5)>=127THEN980 
960 POKES+8,128-PEEK(VIC+5) 

970 GOTO950 

980 POKE856,0 :POKEVIC+41 ,6 :POKEV 
IC+5,127 
990 POKES+24,0 

1 000 FORU = 0TO5:FORE = OTOl4 :POKEVI 
C+39,E:POKEVIC+41,E:NEXTE,U 
:GOSUBl120 

1010 POKE53254,1 71 :POKE532 55,2 00 
:POKE53257,1 00:POKE53256,1 7 
1 :POKE2044,254 

1020 POKE204 3,25 3 :POKEVIC+21 ,13+ 
1 6 

1030 POKEVIC+42,12 
1 040 POKEl98,0:FORDL=lTO400 : NEXT 

1050 SB=1 024:CB=SB+54272:FORI = l 0 
T029:POKESB+I+160,160:POKEC 
B+I+l60,6 

1060 POKESB+I+880,160:POKECB+I+8 
80,6:NEXT:FORI = 4T022:W=I* 40 
:POKESB+W+10,160 

1070 POKECB+W+10,6:POKESB+W+29,1 
6 0 :POKECB+W+29,6 :NEXT 
1 080 PRINT"{ 15 GIU 1 }{ 15 DES}PR 
EMI {RVS}FIRE" 
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1090 GETA$:IFA$=""THENl090 
1100 POKEVIC+21,0 :FORU = 0TOl4 :POK 
EU+VIC,0 :NEXT 

1110 POKEVIC+23,0 :POKEVIC+29,0 :P 
RINT"{CLR}”: RETURN 
1120 FORI = 252* 64T0254* 64 + 62 

1130 READQ:POKEI,Q:NEXT:RETURN 
1140 DATAO,16,0,0,40,0,0,84,0 
1150 DATAO,170,0,1,85,0,2,170,12 
8 

1160 DATA5,85,64,2,170,128,5,85, 
64 

1170 DATA10,170,160,21,85,80,10, 
170,160 

1180 DATA21,85,80,42,170,168,0,5 
6,0 

1190 DATAO,56,0,0,56,0,5,85,64 
1200 DATA42,!28,168,0,0,0,0,0,0 
1210 DATAO,0,0,0,0,0,0,0,0,0,0,0 
,0 

1 220 DATAI 26,0,1 26,24,255,24,1 26 
,126,126 

1230 DATA31,255,248,126,126,126, 
24,255,24 

1 240 DATAI 26,255,1 26,1 6,255,8,1 1 
2,255,14 

1250 DATA23,0,232,119,255,238,22 
,255,104 

1 260 DATAI 18,255,1 10,22,255,104, 
119,255,238 

1270 DATA16,0,8,126,0,126,0,0,0, 
0 

1280 RETURN 
1290 REM 

1 300 PRINT"{CLR}": Al =PEEK(56321 ) 
ANDl6 :IFAl=0THENl 290 
1310 POKE856,0 

1320 POKEVIC+23,0:POKEV+29,0 
1 330 POKE53281 ,6 : FORI = 12T027:POK 
El064+1,160:POKEl064+1+160, 
160:NEXT 

1340 FORI=l064TO1064+160STEP40:P 
OKEI + 12,160 :POKEI+27,1 60 : NE 
XT 

1350 PRINT"{ 2 GIU 1 }"TAB(15)" 

{RVS}[<7>]ISTRUZIONI" 

1360 PRINTTAB(15)"[< 10 T>]" 

1370 PRINT"{ 4 GIU'}[<7>] 

{ 2 SPAZI}SEI UN RANGER IL 
CUI COMPITO E'" 

1380 PRINT"{ 2 SPAZI}SALVARE GLI 
SCIATORI FERITI E" 

1390 PRINT"{ 2 SPAZI}PORTARLI AL 
RIFUGIO." 

1400 PRINT"{ 2 SPAZI}PER FAR QUE 
STO DEVI AFFRONTARE UNA" 
1410 PRINT"{ 2 SPAZI}UNA PERICOL 
OSA SCALATA." 


1420 PRINT"{ 2 SPAZI}{ 2 GIU’} 
{RVS}{WHT}QUESTO SEI TU:" 
1430 PRINTTAB(17)[<P>]M" 

1 440 PRINTTAB (17) [<Y>]N":VIC = 5 

3248 

1 450 POKEVIC+5,70 :POKEVIC+4,40 : P 
OKE2042,252 :POKEVIC+41,0 
1 460 POKEVIC + 21,5 :POKE2040,253 
1 470 POKEVIC,180:POKEVIC+1,181 

1480 PRINT"[<8>]{GIU'} 

{ 2 SPAZI}PREMI { WHT}{RVS}F 
IRE{OFF}[<8>] PER INIZIARE" 

1490 SB=1024:CB=54272+SB:FORI=0T 
039 :POKESB+1,160:POKECB+1,7 

1500 POKESB+I+960,160:POKECB+I+9 
60,7:NEXT 

1510 FORI=0TO960STEP40 

1 520 POKESB+1,160:POKECB+I,7 :POK 
ESB+I + 39,1 60 :POKECB+I + 39,7 : 
NEXT 

1530 A=PEEK(56321)ANDl6:IFATHENl 
530 

1 540 PRINT"{CLR}":POKEVIC + 21 ,0:R 
ETURN 
1 550 REM 

1 560 POKEVIC+ 11,0:POKE2045,254 
1570 T$=TI$ 

1580 POKEVIC+21,252 

1 590 IFPEEK(VIC + 5)< = 50THENl 590 

1600 SP=53251:FORU=lT07 

1610 IFU = 5THEN16 30 

1620 POKESP,0 

1630 SP=SP+2:NEXT 

1640 IFPEEK(VIC+11)<=150THEN1640 

1650 POKE856,2 

1660 IFPEEK(VIC+11)<=179THEN1660 
1670 POKE856,0 

1680 PRINT"{HOME}{ 4 GIU'}"TAB(9 
)"CE L'HAI FATTA!!" 

1690 HI (1)=25:L1 (1)=30:H2(1)=18: 
L2 (1)=209 

1700 Hi (2)=33:Ll (2)=135:H2(2)=25 
:L2(2)= 30 

1710 Hi (3)=42 : Li (3)=62 :H2(3)=31 : 
L2(3)=165 

1720 Hi(4)=50:Ll(4)=60:H2(4)=37: 
L2(4)=162 

1730 HI (5)=42:L1 (5)=62:H2(5)=31 : 
L2(5)=16 5 

1 740 Hi (6)=50:Ll (6)=60:H2(6)=37; 
L2(6)=162 

1750 S = 54272 :POKES+5,85 :POKES+6, 
8 5 :POKES+12,85:POKES+13,85 
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1 760 POKES+24,15:POKES+4,33 :POKE 
S+ll ,17 

1770 FORX=lT06:POKES,Li(X):POKES 
+1,H1(X):POKES+7,L2(X):POKE 
S+8,H2(X) 

1780 IFH1(X)=50THENFORT=1TO200:N 
EXT 

1790 FORT=lTO200:NEXT:NEXTX 
1 800 FORD = 0TO24:POKES+D,0 :NEXT 
181 0 GOTO!950 
1820 REM 

1830 POKE856,0:S=54272:POKES,240 
:POKES+1, 33 :POKES+5,8 :POKES 

+ 22,1 04:POKES+23,1 
1840 POKES+24,79 

1850 POKES+4,129:FORDL=lTOl00:NE 
XT:POKES + 4,1 28 
1860 POKE856,1 

1870 FORI=200TO251:POKE53249,I:N 
EXT 

1 880 POKES56,1 :T$=TI$ :POKES + 4,0 
1890 FORY=32TO50:POKE2040,Y:NEXT 

1900 POKEVIC+21,254 
1910 S=54272:POKES+24,15:POKES+5 
,85:POKES+1,1 :POKES+4,1 7 
1 920 FORDL=lTO200:NEXT:POKES+4,1 
6:FORDL=lTO200:NEXT:POKES+4 
,0 

1930 PRINT"{HOME}{ 4 GIU'}"TAB(8 
);"TI SEI SCHIANTATO!" 

1 940 POKE5427 6,0 

1950 PRINT"{ 2 GIU’}"TAB(12)"FIN 
E GIOCO" 

1960 POKES+4,0:POKES+4,33:POKES+ 
5,85:POKES+24,15 

1 970 Al=PEEK(56321)ANDl6 :POKE532 
8 0,RND( 1 )*16 

1 980 SC=ABS(INT(((300-VAL(T$))*D 
I)/2)):IFDI=400THENSC=SC+50 
0 

1 990 A=INT(RND(1)*7)+1 :IFPEEK(VI 
C+(A* 2)+1)=251THENPOKEVIC+( 
A* 2)+1,0 

2000 IFAlTHENl970 
2010 POKE56321 ,0 :POKE53280,0 
2020 POKES+24,0 
2030 POKE53281,14 
2040 POKEVIC+21,0 
2050 Al=PEEK(56321 )AND 16 :IFAl=0T 
HEN2050 

2060 PRINT"{CLR}{WHT}" 

2070 PRINTTAB(12)"{ 6 GIU'}PUNTE 
GGIO:"SC 

2080 IFSC > = HSTHENHS = SC 
2090 PRINTTAB(8)"{BLU}{ 2 GIU'} 
MIGLIOR PUNTEGGIO:"HS 


2100 
21 1 0 
21 20 


21 30 
2140 
21 50 
2160 
21 70 
21 80 

21 90 

2200 
221 0 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 


231 0 
2320 
2330 
2340 
2350 


PRINTTAB(10)"{ 2 GIU'}{BLU} 
GIOCHI ANCORA (S/N)?" 

PRINT"{GIU'}{WHT}{ 2 DES} 

{ 14 SPAZI}{DES}S / N" 
PRINT" {HOME}{ 18 GIU *} 

{ 14 DES}{CYN}{ 2 SPAZI} 

{RVS} {YEL}{OFF}t{RVS}{CYN} 
{ 3 SPAZI}{YEL} {CYN} {OFF} 


A4=17 61 :A5=17 65 
A=A4 

Al=PEEK(56321)ANDl5 
IFAl=11THENA=A4 
IFAl=7THENA=A5 
POKEA4,32 :POKEA5,32 :POKEA,3 
0 


Al=PEEK(56321 )ANDl6 :IFAlTHE 
N21 50 

IFA=A4THEN240 

POKEl98,0:FORI=lTO30:PRINT" 
{GIU 1 }";:NEXT 

PRINT"{CLR}{BLK}":POKEl98,0 
: END 


DATA31,255,224,31,199,224,3 

1.199.224 

DATA31 ,1 ,2 24,31 ,1 ,224,31 ,19 

9.224 

DATA31,199,224,31,255,224,2 
4,0,0 


DATA24,1 1 2,0,24,1 1 2,0,31 , 25 
2,0 


DATA2 4,1 26,0,24,1 1 5,0,24,24 
6,0 

DATA25,176,0,25,176,0,127,1 
76,0 

DATA225,225,0,0,0,0,0,0,0 
POKE54 27 6,0:POKE54 277,1 44:P 
OKE54 276,33 :POKE54 276,32 : PO 
KE54 278,1 4 4 
POKE54273,20 
RETURN 

POKE54 276,0 :POKE54 276,1 29 
POKE54 273,0 :POKE54 277,8 5 
RETURN 
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Jackpot 



Sei mai stato a Las Vegas o ad Atlantic City ? 
Bene, se la risposta è negativa con questa fan¬ 
tasmagorica macchinetta mangiasoldi puoi pro¬ 
vare l'inebriante sensazione di essere in un vero 
Casino. 

Il gioco è molto semplice: parti con una som¬ 
mo di 50 dollari e, premendo il pulsante 'P' 
inserisci un dollaro e fai girare le ruote. 

Se le tre figure che appaiono nel quadrante for¬ 
mano una delle combinazioni vincenti mostrate 
sullo schermo, vincerai la quantità di denaro 
indicata vicino alla combinazione stessa. 

Tra le combinazioni vincenti ve ne sono alcu¬ 
ne formate da un solo simbolo o da due simboli. 
In questo caso bisogna che la combinazione ap¬ 
io POKE52,28 :POKE56,28 :POKE51,0: 

POKE55,0 :GOSUB300 
20 PRINT"{CLR}"; :FORA=1T04:FORB= 
1T02 2:PRINT"@"; :NEXT:NEXT 
30 F0RA=lT02:PRINT"@@@@@@ 

{ 2 SPAZI} @@ { 2 SPAZI}@@ 

{ 2 SPAZI}@@@@@@";:NEXT 
40 FORA=lT03:FORB=lT022:PRINT"@" 
; :NEXT:NEXT 

50 PRINTB$V$B$V$B$" 100 "V$B$V$B 
$"{ 4 SPAZI}50":PRINTS$V$S$V$ 
S$"{ 2 SPAZI}50 "V$S$V$S$" 

{ 4 SPAZI}25" 

70 PRINTBE$V$BE$V$BE$" 

{ 2 SPAZI}!8 "V$BE$V$BE$V$B$" 
{ 2 SPAZI}10" 

80 PRINTC$V$C$V$C$"{ 2 SPAZI}15 
"V$C$V$C$"{ 5 SPAZI}5 ":PRINT 
V$P$V$P$V$P$"{ 2 SPAZI}!4 "V$ 
P$V$P$V$B$"{ 2 SPAZI}10” 

95 PRINTL$V$L$V$L$"{ 2 SPAZI}10 
"V$C$';{ 7 SPAZI} 2" 

100 A=RND(1):A$="":GETA$:IFASO" 
P"ANDA$< >"E"THEN100 
110 IFA$="E"THENPRINT"{CLR}":POK 
E36869,240:END 

115 T$="{GIU'}{ 2 SPAZI}{SU} 

{ 2 SIN}{ 2 SPAZI } {GIU 1 }":GO 
SUB210 :GOSUB220:GOSUB220:PRI 
NTY$"{SU}{ 21 SPAZI}" 


parsa sul quadrante possieda i simboli od il sim¬ 
bolo indicati nella combinazione vincente, nel¬ 
la stessa posizione. 

Gli altri simboli (che nella combinazione vin¬ 
cente corrispondono a degli spazi) possono es¬ 
sere di qualunque tipo. 

Quando sarai stanco di giocare, premendo il 
tasto '£' potrai terminare la partita. 

Quando deciderai di farlo ricordati di control¬ 
lare, prima di premere il tasto, il tuo 'capita¬ 
le', perché lo schermo istantaneamente si pu¬ 
lisce quando il tasto stesso viene premuto. 
Ed ora che sai tutto, mano alla tastiera e... 
buona fortuna!! 

120 W=0:H=0:N=1:GOSUB200:GOSUB21 
0 :GOSUB260:N = 2:GOSUB200:GOSU 
B220:GOSUB260 

140 N= 3:GOSUB200:GÓSUB220:GOSUB2 
60 

145 FORA=lT024STEP2:H$=STR$(H):H 
$=RIGHT$ (H$ , (LEN(H$)-1) ) 

150 K=LEN(P$(A)):IFP$(A)=LEFT$(H 
$,K)THENW=VAL(P$(A+l)) 

160 NEXT:IFW>OTHENPRINTY$"{SU} 

{ 3 SPAZI}VINCI"W-1"DOLLARI" 
:GOSUB280 

170 TT=TT-1:IFTT>OTHENTT$=STR$(T 
T)+"{ 2 SPAZI}":PRINTY$" 

{ 6 SPAZI}TOTALE "TT$;:P0KE1 
98,0:GOTOl00 

180 PRINTYS"{SU}{ 3 SPAZI}TI HO 
SBANCATO!!" 

190 PRINT"{ 2 SPAZI}GIOCHI ANCOR 
A S/N "; 

195 GETA$:IFA$<>"S"ANDA$<>"N"THE 
Ni 95 

197 IFA$ = "S"THENTT=50: GOTO20 

198 PRINT"{CLR}":END 

200 A=INT(RND(1)*17)+1:B=G%(N,A) 

:T$ = F$(B) :H=H*10+B: RETURN 
210 PRINT"{HOME}{ 4 GIU'} 

{ 6 DES}"T$;: RETURN 
220 PRINT"{SU}{ 2 DES}"T$;:RETUR 
N 

260 POKEV/150 :FORA=1TO30:NEXT:PO 
KEV,0 :IFN< 3THENFORA=lTORND(1 
)*200:NEXT 
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270 RETURN 

280 FORQ=1TOW:TT=TT+1:TT$=STR$(T 
T)+"{ 2 SPAZI}":PRINTY$" 

{ 6 SPAZI}TOTALE "TT$;:POKEV 
1,220 

290 FORA=lTOl10-W:NEXT:POKEV1 ,0 : 
NEXT:RETURN 

300 PRINT"{CLR}{ 3 GIU'}ATTENDER 

E{ 2 SPAZI}PREGO." 

305 DIMG%(3,17):FORA=1T03:FORB=1 
TOl7 :READC:G%(A,B)=C:NEXT:NE 
XT 

310 DATAI,2,3,4,5,6,7,5,7,3,4,5, 

6.7.3.2.3 

320 DATAI,2,3,4,5,6,7,5,7,3,4,5, 

6.7.3.6.3 

330 DATAI,2,3,4,5,6,7,5,7,3,4,5, 

6.7.3.2.3 

340 DIMPS(24):FORA=lT024:READPS( 
A):NEXT 

350 DATA4,3,44,6,444,1 6,555,1 1 ,6 
61,11,666,15,331,11,333,19,2 
2,26,222,51 ,1 1 ,51 ,1 1 1 , 1 01 
400 A=7168:B=7679:C=25600:FORI=A 
TOB:POKEI,PEEK(I+C):NEXT:POR 
E36869,255 

410 READB:IFB=-1THEN430 

420 FORI=0TO7:READC:POKE71 68+B*8 
+1,C:NEXT:GOTO410 
430 B$="{RED}%&{GIU'}{ 2 SIN}'(" 
:S$ = "{RED}! -{GIU'}{ 2 SIN}#$ 
":L$="{GRN}t-{GIU'}{ 2 SIN} 
>?":C$="{RED}Z[{GIU'} 

{ 2 SIN}: ;":P$ = "{PUR}£] 

{GIU’}{ 2 SIN}< = " 

440 BE$="{YEL})*{GIU'}{ 2 SIN}+, 
" : LE$ = " {YEL} t «- {GIU ' } 

{ 2 SIN}>?":U$="{SU} ":V$=" 
{SU}":Y$="{HOME}{ 22 GIU'}" 
450 F$(1)=B$:F$(2)=S$:F$(3)=BE$ : 
F$ (4) =C$1:F$ (5) =L$:F$ (6) =P$:F 
$(7)=LE$ 

490 POKE36878,15:V=36877:Vl=3687 
6 :TT=50: RETURN 

500 DATA26,0,0,0,1 ,2,4,8,28 

501 DATA27,0,0,128,128,128,64,56 
,124 

502 DATA28,0,0,0,3,1 5,31 ,63,63 

503 DATA29,0,96,192,224,240,248, 
252,252 

504 DATA30,0,0,0,0,7,31 ,63,1 27 

505 DATA31,0,0,0,0,224,248,252,2 
54 

506 DATA33,0,0,15,15,0,0,0,0 

507 DATA45,0,0,248,248,24,48,96, 

1 92 

508 DATA35,1,3,3,3,3,3,0,0 

509 DATA36,128,0,0,0,0,0,0,0 


510 DATA37,0,0,0,255,205,1 28,1 77 
,170 

511 DATA38,0,0,0,255,179,1,153,8 
5 

512 DATA39,179,170,178,128,205,2 
55,0,0 

513 DATA40,217,85,85,1,179,255,0 

,0 

514 DATA41,0,0,3,7,15,15,15,15 

515 DATA42,0,0,128,192,224,224,2 
24,224,43,15,15,31,63,63,63, 
1,0 

517 DATA44,224,224,240,248,248,2 
48,128,0,58,62,127,127,127,1 
27,62,28,0 

519 DATA59,254,254,254,254,124,5 
6,0,0,60,63,63,63,63,31,15,3 
,0 

521 DATA61,252,252,252,252,248,2 
40,224,0,62,255,127,63,31,7, 
0 , 0,0 

523 DATA63,255,254,252,248,224,0 
,0,0,0,255,255,255,255,255,2 
55,255,255,-1 


RICERCA 

COLLABORATORI 

Il Gruppo Editoriale Jackson nel quadro 
di potenziamento delle attività editoriali 
ricerca collaboratori esperti nella 
programmazione di Commodore 64. 
VIC 20 e ZX Spectrum. 

Requisiti indispensabili sono: 

— disponibilità del computer da 
almeno 8 mesi 

— predisposizione alla grafica e suono 

— residenza in Lombardia 

Per maggiori informazioni telefonare a 
Gruppo Editoriale Jackson 
Tel. 02/6880951-2-3-4-5 chiedendo 
della Sigma Renata Rossi 
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Approfitta dell’offerta J. soft! 

In seguito alle sempre più numerose richieste di programmi 
da parte dei possessori deM’home computer TI-99/4A, 
mettiamo a disposizione degli interessati un 
vasto assortimento a prezzi estremamente contenuti. 
L’offerta è valida fino ad esaurimento delle scorte. 
Prima ordini, più sei sicuro di ricevere quanto desideri. 







Programming Aids 1 - (Aiuto alla 
programmazione) 

CocT DTXSX04 - L. 14.000 

Mette a disposizione gli ausilii per po¬ 
tenziare il linguaggio BASIC TI. Com¬ 
prende le seguenti possibilità: ‘ CATA¬ 
LOGARE DISCHI", "DISPLAY AT", 
"ACCEPT AT", "SCREEN PRINJ (per la 
stampa su carta dello schermo)", "LO- 
WERCASE (per la créazione di un set di 
lettere minuscole)", "2nd ASCII (per la 
costruzione e l'utilizzo di un secondo 
set di caratteri)", "CHARDEF (per rea¬ 
lizzare e facilitare la definizione dei 
caratteri) 

Configurazione richiesta: A 
Configurazione raccomandata: D + E 


Blackjack e Poker 

Cod. DTXMX04 - L. 25.000 

Partite di carte simulate col computer, 
che vi consentono di puntare le somme 
dei vostri desideri. Possono partecipa¬ 
re fino a quattro giocatori 


Hunt fhe Wumpus (Caccia la Mostro) 
Cod. DTXMA 12 - L. 25.000 

Una caccia emozionante in un dedalo 
di caverne e gallerie. Cercate la tana 
del Mostro evitando i pericoli in ag¬ 
guato lungo il percorso. Soppesate e 
vagliate attentamente gli indizi per 
completare questa missione pericolo¬ 
sa. 

Configurazione raccomandata: B 


Hangman II carnefice) 

Cod. DTXIX06 - L. 25.000 

Il giocatore cerca di scoprire la parola 
segreta e ogni volta che sbaglia, si av¬ 
vicina maggiormente alla forca. Pote¬ 
te usare 200 parole programmate in 
inglese oppure crearne 60 nuove. 

Configurazione raccomandata: A 


Othello 

Cod. DTXMX20 - L. 35.000 

Questo antico gioco di strategia impe¬ 
gna a fondo anche i giocatori più sma¬ 
liziati. Un gioco da scacchiera che si 
impara in pochi minuti ma che richie¬ 
de... una vita per dominarlo. Per strate¬ 
ghi di tutte le età. 


Tombstone City: 21] secolo 

Cod. DTXMX28 - L. 25.000 

Vi trovate in una città fantasma del Far 
West nel XXI secolo, minacciata da 
un'orda di invasori verdi. Avanzate 
con la vostra pattuglia su carri coperti 
tipo Far West, cercando di arrestare i 
verdi "morgs". 

Gioco velocissimo per una persona, 
Tombstone City mette alla prova la Vo¬ 
stra abilità strategica e la prontezza di 
riflessi. 

Configurazione raccomandata: B 

Blasto 

Cod. DTXMX05 - L. 25.000 

Un carro armato (o due, a seconda del 
numero dei giocatori) entrano in lizzo 
per far saltare un campo minato, evi¬ 
tando nel contempo i tiri déll'avversa- 
rio. Una corsa velocissima contro il 
cronometro allo scopo di colpire il 
massimo numero di mine. Attenti a non 
colpire le mine se siete troppo vicini, 
altrimenti dovrete ricominciare da ca¬ 
po. 

Configurazione raccomandata: B 

Personal Report Generator;(Gene- 

ratore rapporti e archivi personali) 
Cod. DTXTX01 - L. 68.000 

Permette di creare, edit e stampare let¬ 
tere e rapporti di routine con i dati 
ricavati da un archivio creato esclusi¬ 
vamente con i moduli "Gestione dati 
personali (cod. DTXGX01)" o "Dati 
Statistici”. 

Configurazione raccomandata: A o C 
D + E 

A - MAZE - ING 

Cod. DTXMX03 - L. 25.000 

Se vi piacciono i labirinti, ecco il gioco 
per voi. 

Opzioni diverse vi offrono una grande 
varietà di situazioni. Da semplici deda¬ 
li alla caccia al topo. Tredici opzioni 
con 5.200 variazioni possibili. 

Configurazione raccomandata: B 


Oldies but Goodies(Vecchi ma buoni ) 
- Gioco II 

Cod. DTXMX19 - L. 14.000 

Una serie di giochi, che include Ham- 
murobi, Hidden Paris, Peg Jump, Cer¬ 
chi e croci tridimensionali e Word Sa¬ 
fari. 

Configurazione richiesta: A 


Munch Man 

Cod. DTXMX16 - L. 45.000 

Manovrate il Munch Man attraverso un 
dedalo e cercate di raggiungere uno 
stimolatore prima di venire divorati 
dai quattro Hoonos che stanno incal¬ 
zando il Munch Man. Segnate punti 
collegando i passaggi con una catena 
continua oppure catturando gli astuti 
Hoonos mentre il Munch Man si ricari¬ 
ca con 10 stimolatori. 

Configurazione raccomandata: B 

Personal Record Keeping (Gestione 
dati personali) 

Cod. DTXGX01 - L. 68.000 

Permette di creare, mantenere ed uti¬ 
lizzare un sistema d'archivio compute¬ 
rizzato, utile e comodo per molte ap¬ 
plicazioni, fra cui inventario domesti¬ 
co, scadenze manutenzione autovettu¬ 
ra, cartelle cliniche, oltre a un mezzo di 
consultazione completa per comple¬ 
anni, onomastici, anniversari e altre 
date importanti. 

Configurazione raccomdandata: A o 
C D + E 

Market Simulation (Simulazione di 
mercato) 

Cod. DTXIX07 - L. 14.000 

Due giocatori si trovano in concorren¬ 
za d affari. Scegliete quanta pubblici¬ 
tà fare, quanti pezzi volete produrre, 
ecc. ed attendete i risultati. 

I mutamenti economici e sociali rendo¬ 
no estremamente realistico questo gio¬ 
co istruttivo. 

Configurazione richiesta: A 

The Attack(Attacco) 

Cod. DTXMX25 - L. 25.000 

Vi attende il ruolo di capitano di un'a¬ 
stronave in una regione spaziale infe¬ 
stata da "spore" ed "estraterrestri ' 
che vanno distrutti. 

Manovrate ^astronave per evitare gli 
extraterrestri e lanciate missili per an¬ 
nientare il nemico. 

Configurazione raccomandata: B 
Configurazione: 

A - Reistratore a cassetta e cavetto di 
collegamento 

B - Telecomandi a filo (coppia) 

C - Memoria a dischi comprendente 
una scheda comando dischi e un co¬ 
mando dischi 

D - Scheda interfaccia parallela o se¬ 
riale RS232 

E - Stampante a matrice (o altro tipo di 
stampante) 




Spett. J. soft - Via Rosellini, 12 - 20124 Milano (MI) 
Tel. 02/6888228-6880841 -6880842-6880843-683797 

Ordino il seguente software/libri per il TI-99/4A: 


cod. 

.cod. 

.cod. 

cod. 

.cod. 

.cod. 

cod. 

.cod. 

.cod. 


per un totale di L.+ L. 2.500 per contributo fisso di spese di spedizione 

Scelgo la seguente modalità di pagamento: 

□ pagherò in contrassegno al postino 

□ allego assegno (o contanti) 

□ verso l’importo sul C.C.P. n. 19445204 
intestato a J. soft (allego ricevuta) 


Nome .... 
Cognome 
Via . 


CAP 


Città 


Prov. 






















IL TELEFONO È 02-437.385 



IN MILANO - VIA MASCHERONI, 

























































